kirus22
Jul 16, 2008, updated at Jul 17, 2008 (UTC)
view4439
view5
0
Goto Top

Batch to Vbs

GermanclosedsolvedQuestionBatch, ShellDevelopment
Hallo zusammen,

wie würde dieser Batch Befehl in VBS aussehen?

if not exist U:\LogDateien\%computername%, md U:\LogDateien\%computername%

Für alle Antworten Danke ich im Voraus!

Gruß Kirus
ShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 92167

Url: https://administrator.de/contentid/92167

Printed on: April 26, 2024 at 18:04 o'clock

5 Comments
Latest comment
Goto Top
Member: AndreasHoster
AndreasHoster Jul 16, 2008 at 09:51:25 (UTC)
Goto Top
Set wshshell = CreateObject("WScript.Shell")  
Set fso = CreateObject("Scripting.FileSystemObject")  
If not fso.FolderExists(wshshell.ExpandEnvironmentStrings("U:\LogDateien\%computername%")) then  
	fso.CreateFolder(wshshell.ExpandEnvironmentStrings("U:\LogDateien\%computername%"))  
End If
Member: bastla
bastla Jul 16, 2008 at 09:56:51 (UTC)
Goto Top
Hallo Kirus22!

Etwa so (wobei der Ordner "U:\LogDateien" bereits existieren muss):
Set WshNetwork = WScript.CreateObject("WScript.Network")  
Pfad = "U:\LogDateien\" & WshNetwork.ComputerName  

Set fso = CreateObject("Scripting.FileSystemObject")  
If fso.FileExists(Pfad) Then
    WScript.Echo "Es ist bereits eine Datei " & Pfad & " vorhanden!"  
Else
    If Not fso.FolderExists(Pfad) Then
        fso.CreateFolder(Pfad)
    End If
End If
Grüße
bastla
Mitglied: 67369
67369 Jul 16, 2008 at 10:04:49 (UTC)
Goto Top
Wobei in der Batchzeile ein Komma zu viel ist, das da nicht hingehört und sie deshalb auch nicht korrekt funktionieren wird. face-wink
Member: Logan000
Logan000 Jul 16, 2008 at 10:19:09 (UTC)
Goto Top
Moin

Das sollte in etwa so aussehen (nicht getestet) :
Set WshNetwork = Wscript.CreateObject("Wscript.Network")  
WORKSTATION = WshNetwork .ComputerName

Set objFSO = CreateObject("Scripting.FileSystemObject")  
If Not oFSO.FolderExists("U:\LogDateien\" & WORKSTATION) Then  
    oFSO.CreateFolder("U:\LogDateien\" & WORKSTATION)  
end if

Gruß L.
Member: Kirus22
Kirus22 Jul 17, 2008 at 06:47:24 (UTC)
Goto Top
Vielen Dank, es hat funktioniert!

Gruß Kirus
GermanclosedsolvedQuestionBatch, ShellDevelopment