8
VB Script überprüfung einer Datei
Hallo
ich versuche ein Script zu erstellen welches beim Login gestartet wird, dies soll dann schauen ob die Datei ""Start.txt"" im %appdata% oder im User Profile (c:\users\%username%\ vorhanden ist.
ist die Datei vorhanden = Ende
ist die Datei nicht vorhanden führe ein weiteres Script aus ""\\Server\freigabe\script"" und erstelle die Datei
ich hänge total mit den % Variablen
HILFE
Danke
Twister
ich versuche ein Script zu erstellen welches beim Login gestartet wird, dies soll dann schauen ob die Datei ""Start.txt"" im %appdata% oder im User Profile (c:\users\%username%\ vorhanden ist.
ist die Datei vorhanden = Ende
ist die Datei nicht vorhanden führe ein weiteres Script aus ""\\Server\freigabe\script"" und erstelle die Datei
ich hänge total mit den % Variablen
HILFE
Danke
Twister
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: 194642
Url: https://administrator.de/contentid/194642
Printed on: April 25, 2024 at 13:04 o'clock
8 Comments
Latest comment
Hallo 00Twister00 und willkommen im Forum
In VBS ein kleines Beispiel:
Wie weit bist du denn mit deinem Script`?
Gruss
Tsuki
ich hänge total mit den % Variablen
So schwer ist das nicht.In VBS ein kleines Beispiel:
Set objShell = CreateObject ("WScript.Shell")
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")
Wscript.Echo profile_pathWie weit bist du denn mit deinem Script`?
Gruss
Tsuki
Hallo
Set objFSO = createobject("Scripting.FileSystemObject")
If objFSO.FileExists("c:\users\%username%\start.txt") then
wshshell.run "\\servername\freigabe\machedies.bat", 0, TRUE
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\Users\%username%\start.txt", True)
MyFile.WriteLine("einstellungen uebernommen.")
MyFile.Close
End If
so hab ich das versucht
Danke!
Set objFSO = createobject("Scripting.FileSystemObject")
If objFSO.FileExists("c:\users\%username%\start.txt") then
wshshell.run "\\servername\freigabe\machedies.bat", 0, TRUE
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\Users\%username%\start.txt", True)
MyFile.WriteLine("einstellungen uebernommen.")
MyFile.Close
End If
so hab ich das versucht
Danke!
Hallo 00Twister00,
na wenn's gelöst ist, dann ein Häkchen dran und bitte in Zukunft die
benutzen. Sieht besser aus.
Gruss
Tsuki
na wenn's gelöst ist, dann ein Häkchen dran und bitte in Zukunft die
benutzen. Sieht besser aus.
Gruss
Tsuki
Leider habe ich keinen erfolg .. das Script scheit zu laufen es passiert nur nichts.. kann mir bitte jemand dabei helfen.
DANKE
Gruss
Twister
DANKE
Set objShell = CreateObject ("WScript.Shell")
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")
Set objFSO = createobject("Scripting.FileSystemObject")
If objFSO.FileExists("c:\users\%username%\start.txt") then
wshshell.run "\\server\freigabe$\copy\Start_DATA.cmd", 0, TRUE
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\Users\%username%\start.txt", True)
MyFile.WriteLine("einstellungen uebernommen.")
MyFile.Close
End IfGruss
Twister
Hallo Twister,
was gibt denn dein Script aus, wenn du Zeile 4 deines Scriptes
durch
ersetzt?
vermutlich nicht, was du dir wünscht.
Das gleiche wäre in Zeile 8 zu erwarten.
In Zeile 2 deines Scriptes steht doch schon der Pfad drinnen.
Teste mal bis Zeile 2:
Also, wenn man das anwendet ergäbe sich in deinem Beipiel:
Was ich nicht weiss, ob deine Start_Data.cmd funktioniert
Viele Grüsse
Tsuki
was gibt denn dein Script aus, wenn du Zeile 4 deines Scriptes
durch
Wscript.Echo "c:\users\%username%\" vermutlich nicht, was du dir wünscht.
Das gleiche wäre in Zeile 8 zu erwarten.
In Zeile 2 deines Scriptes steht doch schon der Pfad drinnen.
Teste mal bis Zeile 2:
Set objShell = CreateObject ("WScript.Shell")
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")
Wscript.Echo profile_pathSet objShell = CreateObject ("WScript.Shell")
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")
Set objFSO = createobject("Scripting.FileSystemObject")
If objFSO.FileExists(profile_path & "\start.txt") then
wshshell.run "\\server\freigabe$\copy\Start_DATA.cmd", 0, TRUE
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(profile_path & "\start.txt", True)
MyFile.WriteLine("einstellungen uebernommen.")
MyFile.Close
End IfWas ich nicht weiss, ob deine Start_Data.cmd funktioniert
Viele Grüsse
Tsuki
Hi
ich habs
DANKE
musste das Script noch erweitern=
weil der nicht starten wollte
und
damit der nach der Datei sucht.
DANKE!!!
ich habs
DANKE
musste das Script noch erweitern=
set wshshell = wscript.createobject("wscript.shell") weil der nicht starten wollte
und
If objFSO.FileExists(profile_path & "\start.txt") =false then damit der nach der Datei sucht.
DANKE!!!
nur leider startet der die Bacht nur wenn die Datei "start.txt" vorhanden ist
Dann musst du "ihm" es auch so sagen
Set objShell = CreateObject ("WScript.Shell")
set wshshell = wscript.createobject("wscript.shell")
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")
Set objFSO = createobject("Scripting.FileSystemObject")
If Not objFSO.FileExists(profile_path & "\start.txt") then
wshshell.run "\\server\freigabe$\copy\Start_DATA.cmd", 0, TRUE
Else
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(profile_path & "\start.txt", True)
MyFile.WriteLine("einstellungen uebernommen.")
MyFile.Close
End IfGruss
Tsuki
[Edit]
war ich wohl eben zu langsam.
Schön, wenn es funktioniert!
Gruss
Tsuki
[/Edit]
Super
DANKE!!!
(mein Tag ist gerettet )
DANKE!!!
(mein Tag ist gerettet
)
