Aus einer .hta heraus WDSUTIL aufrufen funktioniert nicht

C:\>set
ALLUSERSPROFILE=C:\ProgramData
APPDATA=C:\Users\administrator.HAKNEUSIEDL\AppData\Roaming
CLIENTNAME=ILVA
CommonProgramFiles=C:\Program Files (x86)\Common Files
CommonProgramFiles(x86)=C:\Program Files (x86)\Common Files
CommonProgramW6432=C:\Program Files\Common Files
COMPUTERNAME=WICKY
ComSpec=C:\Windows\system32\cmd.exe
FP_NO_HOST_CHECK=NO
HOMEDRIVE=C:
HOMEPATH=\Users\administrator.HAKNEUSIEDL
LOCALAPPDATA=C:\Users\administrator.HAKNEUSIEDL\AppData\Local
LOGONSERVER=\\WICKY
NUMBER_OF_PROCESSORS=8
OS=Windows_NT
Path=C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32
\WindowsPowerShell\v1.0\;C:\Program Files\Windows Imaging\;C:\Program Files (x86
)\Dell\SysMgt\oma\bin;C:\Program Files (x86)\Dell\SysMgt\idrac
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_ARCHITEW6432=AMD64
PROCESSOR_IDENTIFIER=Intel64 Family 6 Model 26 Stepping 5, GenuineIntel
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=1a05
ProgramData=C:\ProgramData
ProgramFiles=C:\Program Files (x86)
ProgramFiles(x86)=C:\Program Files (x86)
ProgramW6432=C:\Program Files
PROMPT=$P$G
PSModulePath=C:\Windows\system32\WindowsPowerShell\v1.0\Modules\
PUBLIC=C:\Users\Public
SESSIONNAME=RDP-Tcp#0
SystemDrive=C:
SystemRoot=C:\Windows
TEMP=e:\Temp\2
TMP=e:\Temp\2
USERDNSDOMAIN=HAK-NEUSIEDL.LOCAL
USERDOMAIN=HAKNEUSIEDL
USERNAME=administrator
USERPROFILE=C:\Users\administrator.HAKNEUSIEDL
windir=C:\Windows

C:\>set
ALLUSERSPROFILE=C:\ProgramData
APPDATA=C:\Users\administrator.HAKNEUSIEDL\AppData\Roaming
CLIENTNAME=ILVA
CommonProgramFiles=C:\Program Files\Common Files
CommonProgramFiles(x86)=C:\Program Files (x86)\Common Files
CommonProgramW6432=C:\Program Files\Common Files
COMPUTERNAME=WICKY
ComSpec=C:\Windows\system32\cmd.exe
FP_NO_HOST_CHECK=NO
HOMEDRIVE=C:
HOMEPATH=\Users\administrator.HAKNEUSIEDL
LOCALAPPDATA=C:\Users\administrator.HAKNEUSIEDL\AppData\Local
LOGONSERVER=\\WICKY
NUMBER_OF_PROCESSORS=8
OS=Windows_NT
Path=C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32
\WindowsPowerShell\v1.0\;C:\Program Files\Windows Imaging\;C:\Program Files (x86
)\Dell\SysMgt\oma\bin;C:\Program Files (x86)\Dell\SysMgt\idrac
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC
PROCESSOR_ARCHITECTURE=AMD64
PROCESSOR_IDENTIFIER=Intel64 Family 6 Model 26 Stepping 5, GenuineIntel
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=1a05
ProgramData=C:\ProgramData
ProgramFiles=C:\Program Files
ProgramFiles(x86)=C:\Program Files (x86)
ProgramW6432=C:\Program Files
PROMPT=$P$G
PSModulePath=C:\Windows\system32\WindowsPowerShell\v1.0\Modules\
PUBLIC=C:\Users\Public
SESSIONNAME=RDP-Tcp#0
SystemDrive=C:
SystemRoot=C:\Windows
TEMP=e:\Temp\2
TMP=e:\Temp\2
USERDNSDOMAIN=HAK-NEUSIEDL.LOCAL
USERDOMAIN=HAKNEUSIEDL
USERNAME=administrator
USERPROFILE=C:\Users\administrator.HAKNEUSIEDL
windir=C:\Windows

set wsh=createobject("wscript.shell")  
befehl = "c:\windows\system32\cmd /k WDSUTIL /Set-Server /PxePromptPolicy /Known:NoPrompt"  
 wsh.run Befehl,9,true

dbFile = DBPath & "MyActiveDirectory1.mdb"  


connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  & dbFile  

 Set dbc = CreateObject("ADODB.Connection")  
        dbc.Provider = "Microsoft.Jet.OLEDB.4.0"  
        dbc.ConnectionString = "Data Source=" & dbFile  

        Set objFSO = CreateObject("Scripting.FileSystemObject")  
        If NOT objFSO.FileExists(dbFile) then
          call WriteDB
        End if

        dbc.Open


function WriteDB

            set cat = CreateObject("ADOX.Catalog")  

            cat.Create connStr

            const adInteger = 3 'Integer  
            const adVarChar = 202 'Variable Character  
            const adLongVarWChar = 203 'Memo  
            const adUnsignedTinyInt = 17' Byte  

            dim new_table
                set new_table = createobject("adox.table")  
                new_table.ParentCatalog = cat

            new_table.Name = "ComputerImAD"  
            new_table.columns.append "id", adInteger  
            new_table.Columns("id").Properties("AutoIncrement") = True 'Ändern in Autowert  
            new_table.columns.append "ComputerName", adVarChar, 255  
            new_table.columns.append "MAC", adVarChar, 255  
            new_table.columns.append "IPAdresse", adVarChar, 255  
            new_table.columns.append "OrganisationUnit", adVarChar, 255  
            new_table.columns.append "Beschreibung", adLongVarWChar  


            'Feld kann leer bleiben Einstellung  
            new_table.Columns("ComputerName").Properties("Jet OLEDB:Allow Zero Length") = True  
            new_table.Columns("MAC").Properties("Jet OLEDB:Allow Zero Length") = True  
            new_table.Columns("IPAdresse").Properties("Jet OLEDB:Allow Zero Length") = True  
            new_table.Columns("OrganisationUnit").Properties("Jet OLEDB:Allow Zero Length") = True  
            new_table.Columns("Beschreibung").Properties("Jet OLEDB:Allow Zero Length") = True  

            new_table.keys.append "pk_cust_id", 1, "id" 'Setzen des Primärschlüssels  
            cat.Tables.Append new_table

            set new_table = nothing
            set cat = nothing

END function