VBScript Variable d'Environnement %COMPUTERNAME%

Je suis à la recherche d'un peu d'aide avec la variable d'environnement %COMPUTERNAME%. Il travaille dans mon script comme un moyen pour le nom d'un fichier après le nom d'hôte local. À un autre point, je suis en utilisant le script pour construire un dossier dans un autre répertoire sur le réseau (sur un lecteur mappé) et j'ai besoin de nom de dossier, le nom d'hôte local de l'ordinateur d'origine. Cela peut ne pas faire de bon sens, mais je vais donner un exemple ci-dessous:

Comp1 = BobPC
Comp2 = JakePC

Je fais un fichier zip sur BobPC, qui est alors copié sur JakePC, mais j'ai besoin de ce fichier à copier dans un répertoire comme... C:\CopiedFiles\BobPc parce que ce script sera exécuté sur de nombreux ordinateurs, et chacun d'eux a besoin d'un dossier où les fichiers se trouvent nommé d'après l'ordinateur, il est venu.

J'espère que cela a du sens.

Droit maintenant, je peux la faire construire un dossier, il suffit de bien, mais il nomme le nom de "JakePC" évidemment parce que je suis en utilisant les variables d'environnement pour saisir le nom d'hôte local.

Ma question est fondamentalement comment puis-je lui dire de nom du dossier après le de l'ordinateur d'origine?

Si vous avez des questions laissez-moi savoir, je serai plus qu'heureux de vous expliquer parce que je sais que je ne pourrais pas faire beaucoup de sens.

Pouvez-vous être plus précis au sujet de votre question? Comme: comment faire pour créer un dossier, ou comment travailler sur un PC à distance, ou comment obtenir le nom de l'ordinateur.
Le script est en cours d'exécution sur 1 de la machine, et il est la production d'un dossier sur un autre, mais j'ai besoin de le dossier dont le nom sera le nom d'hôte de la machine sur lequel le script est exécuté à partir d'.
Vous pouvez obtenir le nom d'hôte de %COMPUTERNAME% variable d'environnement. Cette variable sera toujours le nom d'hôte local où les fichiers source sont, et depuis des scripts sera toujours exécuté localement. Si le script est exécuté sur "JakePC", alors il va produire un dossier nommé "JakePC" sur l'ordinateur distant. Tout comme ce que vous avez déjà de l'état dans le post. Ou essayez-vous de nommer le dossier à l'aide de la télécommande nom de l'hôte?
Oui, je peux le faire pour construire le dossier de l'amende juste. Ce que je fais est d'avoir la construction du dossier avec le nom de l'hôte sur l'ordinateur local, sur la machine distante avant que je zip ou copier quoi que ce soit. Mon problème c'est quand j'essaie de copier le fichier que j'ai zippé, localement, il ne reconnaîtra pas le chemin à l'aide de la variable d'environnement computername dans le chemin d'accès. Donc ça ne marche pas, copier correctement
Est le PC distant déjà le chemin d'accès requis déjà présent? par exemple: Z:\CopiedFiles\BobPC en supposant Z: est mappé à \\JakePC\DriveC. Si ce chemin n'est pas déjà présent, vous devez créer d'abord. Un sous-dossier à un moment si nécessaire. Sinon, vous obtiendrez une erreur.

OriginalL'auteur parchambeau | 2012-07-25

  1. 6

    Dans le cas où vous exécutez le script à partir de la source de l'ordinateur vous pouvez utiliser les éléments suivants

    dim oFso, oShell, oShellEnv, computerName, target, source
const overwrite = true
set oFso      = CreateObject("Scripting.FileSystemObject")
set oShell    = WScript.CreateObject("WScript.Shell")
set oShellEnv = oShell.Environment("Process")
computerName  = oShellEnv("ComputerName")
source =  "c:\test\yourZip.zip"
target = "\\JakePC\copiedFiles\" & computerName & ".zip"
'copiedFiles needs to be a share with write permission for the user who runs the script
oFso.CopyFile source, target, overwrite
'do check on errors and the cleanup of your objects

    dans le cas où vous exécutez à partir de la targetpc vous devez utiliser de script distant mais ce ne serait pas intelligent car vous devez connaître le nom de l'ordinateur où vous avez besoin de le lancer, donc il n'est pas nécessaire pour la variable d'environnementqui.

    "oFso.CopyFile(source, cible, écraser)" - erreur de syntaxe 1044, Ne peut utiliser les parenthèses lors de l'appel d'un Sous'
    ne pouvait pas tester celui-ci, dans ce cas il suffit de supprimer les parenthèses ou mettre un appel avant cela, je vais adapter la réponse, merci d'Ekkehard
    Merci pour la réponse. J'ai réussi à faire marcher le script. Il était plus seulement un "duh" erreur de ma part concernant les parens / graduations dans les mauvais endroits. Plutôt ennuyeux, je pensais avoir quelque chose de fondamentalement mauvais.
    Pierre, est-il de toute façon je pourrais message que vous avez une copie de ce script et vous pourriez lui donner un coup lookover? C'est mon premier script, donc je vais essayer d'obtenir autant d'expérience d'apprentissage hors de lui comme je peux et une bonne critique de la, il serait très utile.
    sûr, mais pourquoi ne pas le publier ici ? je ne suis pas le seul vbscript uer qui peuvent vous aider. modifier votre réponse, ou si trop gros le mettre sur github et de mettre un lien ici

    OriginalL'auteur peter

  2. 2

    J'ai trouvé 2 extraits pour obtenir le nom d'hôte. Les deux s'exécute correctement dans windows 7 sp1 et windows server 2012:

    '
' How to get the hostname
' 
' References
'
' Method1: http://www.robvanderwoude.com/vbstech_network_names_hostname.php
' method2: https://msdn.microsoft.com/en-us/library/s6wt333f(v=vs.84).aspx

WScript.Echo "Method 1 "

Set wshShell = WScript.CreateObject( "WScript.Shell" )
strRegValue = "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname"
strHostName = wshShell.RegRead( strRegValue )
WScript.Echo "Host Name: " & strHostName

WScript.Echo "Method 2  (include other network values)"

Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domain = " & WshNetwork.UserDomain
WScript.Echo "Computer Name = " & WshNetwork.ComputerName
WScript.Echo "User Name = " & WshNetwork.UserName

    La différence est WshNetwork.ComputerName méthode de récupérer le nom d'hôte en majuscules.

    OriginalL'auteur gwarah