'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