VBS-脚本在Windows 7上工作Windows 8上不工作

怎么了？ 此代码适用于Windows 7，不适用于Windows 8。 看起来错误代码一直都是空的

Dim objShell, RegLocateName, RegLocatedn0, strName
Set objShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
Set objUser = GetObject("LDAP://" & strUser)
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strName = objUser.FullName
strPhone = objUser.homePhone

RegLocateName = "HKEY_LOCAL_MACHINE\SOFTWARE\Activa\ActivaTSP\calleridname0"
RegLocatedn0 = "HKEY_LOCAL_MACHINE\SOFTWARE\Activa\ActivaTSP\dn0"
Set Shell = CreateObject( "WScript.Shell" )
Shell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Activa\ActivaTSP\authType", 1, "REG_DWORD"
'Shell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Activa\ActivaTSP\calleridname0", "" & strName , "REG_SZ"
objShell.RegWrite RegLocateName,strName,"REG_SZ"
objShell.RegWrite RegLocatedn0,strPhone,"REG_SZ"
'Shell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Activa\ActivaTSP\dn0", "750", "REG_SZ"
Shell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Activa\ActivaTSP\outgoingContext", "from-internal", "REG_SZ"
Shell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Activa\ActivaTSP\agentContext", "from-internal", "REG_SZ"
Shell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Activa\ActivaTSP\host", "192.168.31.51", "REG_SZ"
Shell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Activa\ActivaTSP\user", "activa", "REG_SZ"
Shell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Activa\ActivaTSP\password", "OutlookHBRP", "REG_SZ"

---

故障排除的第一步：删除错误恢复时的

下一步

。无错误恢复时的下一步是：

------------------------------------Windows脚本主机-----------------Script:activa_config.vbs行：4 Char:1错误：0x80005000代码：80005000源：（null）

删除（或备注）这一行4-它是第7行的副本…是，strUser在第行为空4@Papasmile空，不为空。