Systemvariable in VBS

[Sonic 10]

Hi,

habe folgendes Problem, ich will in diesem VbScript einen Ordner kopieren was auch soweit funktioniert. Jedoch habe ich das Problem das er die Variable %username% nicht erkennt. Wäre super wenn mir jemand helfen könnte und mir sagen wo der Fehler liegt.

 

Danke schon mal im Voraus.

 

Gruß Jens

 

dim fso, fc

dim quelldatei, zieldatei, username

 

Set enviro=CreateObject("WScript.Shell")

username=enviro.ExpandEnvironmentStrings("%username%")

set fso = wscript.CreateObject("Scripting.FilesystemObject")

quelldatei = "c:\test"

zieldatei = "(C:\Dokumente und Einstellungen\&username\test)"

set fc = fso.GetFolder(quelldatei)

fc.copy zieldatei

[Finanzamt 93]

Hi!

Ich habe mit VB nichts am Hut, aber ist "ExpandEnvironmentString" korrekt? Zum Auslesen der solcher StringVars kenne ich GetEnvironmentVar. Paßt das vielleicht in Deinem Fall?

Gegerüßt!

[cablit 10]

Hi Sonic,

 

das mit den Benutzernamen ist so eine Sache ... es gibt ja z.B. den Benutzer, der an der Domäne angemeldet ist, den du so ermitteln kannst:

 

Set WshNetwork = Wscript.CreateObject("Wscript.Network")
strUserName = WshNetwork.UserName
strDomain = WshNetwork.UserDomain

Für dich angepasst:
dim fso, fc
dim quelldatei, zieldatei, username

Set enviro=CreateObject("WScript.Shell")
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
username=WshNetwork.UserName &"." &WshNetwork.UserDomain
set fso = wscript.CreateObject("Scripting.FilesystemObject")
quelldatei = "c:\test"
zieldatei = "(C:\Dokumente und Einstellungen\" &username &"\test)"
set fc = fso.GetFolder(quelldatei)
fc.copy zieldatei

 

Wenn du jetzt nur den Anmeldenamen brauchst, kannst du den normalerweise allerdings auch nur mit Environ und "USERNAME" (username=Environ("USERNAME") ) herausfinden, aber Achtung: Wenn du dir den String zusammenbastelst, musst du deine Variable mit Gänsefüßchen aus der Pfadangabe rauslösen.

 

Grüße

[ati975 10]

zieldatei = "(C:\Dokumente und Einstellungen\&username\test)"

Ändere mal in

zieldatei = "C:\Dokumente und Einstellungen\" & username & "\test"

[Sonic 10]

Hi,

danke für den Tipp werd ich gleich mal ausprobieren, hab das so von nem anderen Script kopiert da ich auch nicht so genau weis wie die Befehle für das Auslesen von SysVariablen sind.

 

Danke Gruß Jens

[Sonic 10]

Hi,

 

danke für die Tipps es funktioniert. Das mit der Domäne hat bei uns keinen Wert da wir ein Novell Netzwerk haben. Es lag an der Schreibweise dieser Zeile.

zieldatei = "C:\Dokumente und Einstellungen\" & username & "\test"

 

Also nochmal Danke für die Rasche Hilfe

 

Gruß jens