'Thema :Transfer Folder löschen
'Autor :Hansi Haase
'Datum :06.12.2001
'Zeit :20:00
'*********************************************************************************************************
strDrive = "F:"
strPath = "\MSA\Daten\Transit"
strDomain = "MS"
myLDAP = "ou=users,ou=msa,dc=ms,dc=com"
set Ws = WScript.CreateObject("WScript.Shell")
set fdrive = CreateObject("Scripting.FileSystemObject")
set fPath = CreateObject("Scripting.FileSystemObject")
set ffile = CreateObject("Scripting.FileSystemObject")
set fverz = CreateObject("Scripting.FileSystemObject")
set WshNetwork = WScript.CreateObject("WScript.Network")
set myContainer = GetObject("LDAP://" & myLDAP)
'kontrolle ob Delete-Drive exisitert
if not fdrive.DriveExists(strDrive) then
wscript.quit
end if
'kontrolle ob \MSA\Daten\ Vezeichniss existiert ansonsten erstellen
if not fverz.folderExists(strDrive & strPath) then
CreateFolder(strDrive & strPath)
end if
set fo = fverz.GetFolder(ws.ExpandEnvironmentStrings(strDrive & strPath))
set fc = fo.subFolders
'on error resume next
'Win2K
'Pro Benutzer ein Ordner erstellen '
for each myObj in myContainer
if (myObj.class = "user") Then
on error resume next
'set fo = fverz.CreateFolder(trim(strDrive & strPath & "\" & myObj.samaccountname))
set fo = fverz.CreateFolder(trim(strDrive & strPath & "\" & myobj.sn & myobj.givenname ))
end if
next
'msgbox "Ende"
'*********************************************************************************************************************************************************
' sub's
'*********************************************************************************************************************************************************
' Create Folder
'************************************************************
Sub CreateFolder(path)
Set fs = CreateObject("Scripting.FileSystemObject")
' wenn Pfadname nicht auf "\" endet, dann
' ein "\" anhängen:
If Not Right(Path,1) = "\" Then
folderpath = Path & "\"
Else
folderpath = Path
End If
' prüfen, welche Ordner angelegt werden müssen
'SYS: 'SYS: erneute Deklaration dieser Komponente
Set fs = CreateObject("Scripting.FileSystemObject")
pos = 0
Do
pos = InStr(pos+1, folderpath, "\")
If pos = 0 Then Exit Do
'msgbox folderpath & "/" & pos
If Not fs.FolderExists(Left(folderpath,pos)) Then
' Ordner fehlt? Dann anlegen!
fs.CreateFolder Left(folderpath,pos)
End If
Loop
End Sub