Problem med Input til placering i rod.
<package><job id="XO Care Loginscript">
<script language="VBScript">
Dim LogTekst, Input
Input = InputBox("Indtast nyt mappe navn","Opret mappe")
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists("e:" & Input) Then
fso.CreateFolder("e:" & Input)
'LogTekst = Logtekst & "Oprettet h:\system Directory" & VbCrLf
End If
If LogTekst <> "" then LogThis("Bruger: " & Brugernavn & VbCrLf & LogTekst)
Function LogThis(Indtekst)
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.LogEvent 4, Indtekst
End function
</script>
</job>
</package>
Problemet er at den vil kun oprette mappen der fra hvor scriptet ligger, og ikke i roden på E: eller en undermappe.