3
VisualBasic-Skript - USERNAME automatisch eintragen
Wie lese ich in einem VisualBasic-Skript den aktuell, angemeldeten User aus?
Hallo zusammen,
mein Problem ist folgendes: Ich habe aus dem Internet das "rsyncbackup.vbs" geladen. Damit ist es möglich,
Dateien automatisch zu sichern. Da ich es auf mehreren Rechnern ausführen möchte und nicht jedes Mal
den Benutzernamen händisch eintippen will, dachte ich an die Variable %USERNAME%.
Das Skript kann diesen Pfad aber leider nicht finden
Hier einmal ein Ausschnitt aus dem Skript:
'--------------------------------------------------------------------------------------
'----- Anfang-Konfiguration ------------------------------------------------------------------
'--------------------------------------------------------------------------------------
Dim sourceFolders
sourceFolders = Array("c:\documents and settings\%username%\desktop")
Dim excludeFiles
excludeFiles = Array("Cache", "parent.lock", "Temp*")
const DESTINATION="c:\testbackup"
'--------------------------------------------------------------------------------------
'----- usw... ------------------------------------------------------------------
'--------------------------------------------------------------------------------------
Sobald ich jetzt bei %username% den Usernamen eingebe, klappts. Aber nicht auf dieser Art und Weise.
Kann mir jemand bitte sagen, WELCHE Befehle ich WO hinzufügen muss damit es klappt.
Liebe Grüße, Christian
mein Problem ist folgendes: Ich habe aus dem Internet das "rsyncbackup.vbs" geladen. Damit ist es möglich,
Dateien automatisch zu sichern. Da ich es auf mehreren Rechnern ausführen möchte und nicht jedes Mal
den Benutzernamen händisch eintippen will, dachte ich an die Variable %USERNAME%.
Das Skript kann diesen Pfad aber leider nicht finden
Hier einmal ein Ausschnitt aus dem Skript:
'--------------------------------------------------------------------------------------
'----- Anfang-Konfiguration ------------------------------------------------------------------
'--------------------------------------------------------------------------------------
Dim sourceFolders
sourceFolders = Array("c:\documents and settings\%username%\desktop")
Dim excludeFiles
excludeFiles = Array("Cache", "parent.lock", "Temp*")
const DESTINATION="c:\testbackup"
'--------------------------------------------------------------------------------------
'----- usw... ------------------------------------------------------------------
'--------------------------------------------------------------------------------------
Sobald ich jetzt bei %username% den Usernamen eingebe, klappts. Aber nicht auf dieser Art und Weise.
Kann mir jemand bitte sagen, WELCHE Befehle ich WO hinzufügen muss damit es klappt.
Liebe Grüße, Christian
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 147827
Url: https://administrator.de/contentid/147827
Printed on: April 19, 2024 at 12:04 o'clock
3 Comments
Latest comment
Hallo Starbase12
den Benutzernamen in VBS kannst du so auslesen:
Gruss
Tsuki
den Benutzernamen in VBS kannst du so auslesen:
Set objNetwork = WScript.CreateObject("WScript.Network")
Username = objNetwork.UserName Gruss
Tsuki
Hallo TsukiSan,
erst einmal vielen Dank für deine Antwort. Ich bin ein totaler Anfänger was VB angeht.
Den Beitrag wo die Lösung von dir drinnen steht habe ich auch bereits gelesen.
Habs mal eingefügt aber ich glaube ich mache das total falsch ^^
Kannst du mir vielleicht in meinem Ausschnitt deine Lösung mit einfügen?
Ich krieg das sonst net hin
Dank dir!
erst einmal vielen Dank für deine Antwort. Ich bin ein totaler Anfänger was VB angeht.
Den Beitrag wo die Lösung von dir drinnen steht habe ich auch bereits gelesen.
Habs mal eingefügt aber ich glaube ich mache das total falsch ^^
Kannst du mir vielleicht in meinem Ausschnitt deine Lösung mit einfügen?
Ich krieg das sonst net hin
Dank dir!
Hallo starbase12
Also, nach deinem Schnipsel, müsstest du es wie folgt schreiben:
Ich hoffe, dass das hilft dir. Bitte aber auch das Scripten verstehen/lernen, wenn du Interesse hast.
Das Forum hilft.
Gruss
Tsuki
Also, nach deinem Schnipsel, müsstest du es wie folgt schreiben:
'--------------------------------------------------------------------------------------
'----- Anfang-Konfiguration ------------------------------------------------------------------
'--------------------------------------------------------------------------------------
Dim sourceFolders
Dim Username
Dim excludeFiles
const DESTINATION="c:\testbackup"
Set objNetwork = WScript.CreateObject("WScript.Network")
Username = objNetwork.UserName
sourceFolders = Array("c:\documents and settings\" & Username & "\desktop")
msgbox sourceFolders(0)
excludeFiles = Array("Cache", "parent.lock", "Temp*")
'--------------------------------------------------------------------------------------
'----- usw... ------------------------------------------------------------------
'-------------------------------------------------------------------------------------- Ich hoffe, dass das hilft dir. Bitte aber auch das Scripten verstehen/lernen, wenn du Interesse hast.
Das Forum hilft.
Gruss
Tsuki
