Utiliser une variable de chemin d'accès au fichier dans .vbs

Est-il possible de usa variable dans un chemin dans .vbs. Ma situation est que j'ai un script vbs qui va souvent être exécuté sur un ordinateur avec une personne connecté et géré par un admin avec un nom d'utilisateur différent (suppose que le fichier sera cliqué avec le bouton droit et "Exécuter en tant Que").

Le script modifie un fichier ini qui se trouve dans le répertoire de l'utilisateur de la personne connecté. Je sais que dans le lot, j'ai pu simplement insérer la variable "C:\Users\%Logger%\AppData\Local\stat.ini" et la variable sera remplacée. Mais je ne peut pas le faire .vbs. Mon script jusqu'à présent. Ou de regarder l'essentiel dans une réponse ici. 

Dim blnRes: blnRes = 0
Dim strOld, strNew, logger
strOld = "frogg"
strNew = "frog"
logger = Inputbox("What is your Domain ID exactly as entered when you log into this machine?","Domain ID")

On Error Resume Next
Call update("C:\Users\logger\AppData\Local\stat.ini", strOld, strNew)
blnRes = blnRes Or (Err.Number = 0): Err.Clear

Est-il une manière que je peux drapeau logger comme une variable, ou est-il un moyen plus facile de faire cela?

InformationsquelleAutor MaskedPlant | 2011-09-23
  1. 2

    Si je comprends bien ce que vous êtes après correctement, vous allez avoir besoin de faire une concaténation de chaîne où vous construisez une chaîne comme "string part 1" & logger & "string part 2" ou utiliser la fonction remplacer de remplacer %Logger% (par exemple Replace(templateString, "%Logger%", logger)) avec votre enregistreur variable. Il n'y a pas d'équivalent direct à la %1 sorte de format utilisé dans les fichiers batch.

    InformationsquelleAutor Chris Disley
  2. 5

    Je suppose que vous vouliez dire une variable de script. Essayez ceci:

    logger = Inputbox("What is ID?","Domain ID")
Call update("C:\Users\"& logger &"\AppData\Local\stat.ini", strOld, strNew)
    InformationsquelleAutor Kul-Tigin
  3. 3

    Vous pouvez utiliser des arguments de ligne de commande avec vbs. Voir le site technet suivant:
    http://technet.microsoft.com/en-us/library/ee156618.aspx

    à l'aide de l'exemple vbs en bas, vous pouvez avoir Ping.vbs réponse fondée sur le nom de l'ordinateur est entré après le nom du script lors de son nom (C:\scripts\Ping.vbs nom d'hôte)

    Voici plus d'informations sur WScript.Aurguments
    https://www.google.com/search?q=WScript.Arguments&sourceid=ie7&rls=com.microsoft:en-us:IE-Address&ie=&oe=

    'Ping.vbs:
Dim arArguments, strArgument
Set arArguments = WScript.Arguments
WScript.Echo WScript.Arguments.Count
For Each strArgument in arArguments
If Ping(strArgument) Then
    WScript.Echo strArgument & " is available."
Else
    WScript.Echo strArgument & " is not available."
End If  
Next 
Function Ping( myHostName )
Dim colPingResults, objPingResult, strQuery
strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & myHostName & "'"
Set colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery( strQuery )
For Each objPingResult In colPingResults
    If Not IsObject( objPingResult ) Then
        Ping = False
    ElseIf objPingResult.StatusCode = 0 Then
        Ping = True
    Else
        Ping = False
    End If
Next
Set colPingResults = Nothing
End Function
    InformationsquelleAutor 7Kinds
  4. -1

    Cela a fonctionné pour moi:

    Dim fs, ws, Path
Set ws = CreateObject( "WScript.Shell" )
Path = ws.ExpandEnvironmentStrings( "%UserProfile%\testfile.txt" )
ws = Nothing
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile (Path, True)
f.WriteLine("This is a test")
f.Close()
f = Nothing

    Ne pas assumer "C:\Users" sera valable sur tous les systèmes. Il ya des moments où vous souhaiterez peut-être utiliser un autre emplacement pour les profils utilisateur. J'ai aussi regardé le %AppData% variable d'environnement, mais dans mon cas, qui a souligné AppData\Roaming, et que vous voulez AppData\Local.

    • C:\Users n'est pas valable sur tous les systèmes, dans notre environnement, nous avons XP qui utilise les documents et les paramètres, et un couple de sites qui stockent les profils d'utilisateurs sur un serveur. J'ai été la planification sur la détermination de l'OS et conditionnelle de l'exécution d'une ligne avec un répertoire. Je suis allé de l'avant et de tester le script de toute façon et il s'exécute dans le même problème, il demande à l'utilisateur le profil de celui qui a couru le fichier. Je vais éditer le post pour le rendre plus clair, désolé.
    InformationsquelleAutor Joel Coehoorn