Nu hebben ik samen met een collega een Vb script gemaakt met de bedoeling dat als je op het moment de mini setup draaid en je hebt de pc naam veranderd dat er een Msgbox omhoog komt met de keuzes in welk domein je de pc wilt hebben . Dat gaat gewoon goed, maar op het moment dat wij kiezen voor autologon te gebruiken wat ook hier wordt gebruikt dan blijft hij hangen omdat het script dan blijkbaar aan de codes te zien lijkt dat hij een bepaalde WMI opbject niet kan uitvoeren omdat hij wat wij denken geen administrator rechten heeft om die register setting uit te voeren.
Die autologon scripten kan je zo van internet halen ik plak hieronder hoe hij eruit ziet nu bij ons in het script.
'set autologon registry settings
Dim oReg : Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
strValueName = "DefaultDomainName"
strValue = sDefaultDomain
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "AltDefaultDomainName"
strValue = sDefaultDomain
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "CachePrimaryDomain"
strValue = sPassword
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "AutoAdminLogon"
strValue = "1"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "DefaultUserName"
strValue = sUser
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "AltDefaultUserName"
strValue = sUser
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "DefaultPassword"
strValue = sPassword
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "ForceAutoLogon"
strValue = "1"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
End Sub
Hij blijft hangen bij AltDefaultDomainName
We hebben geprobeerd een Resume on error in te bouwen dat is gelukt maar nog steeds voert hij de script niet goed uit.
Die autologon scripten kan je zo van internet halen ik plak hieronder hoe hij eruit ziet nu bij ons in het script.
'set autologon registry settings
Dim oReg : Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
strValueName = "DefaultDomainName"
strValue = sDefaultDomain
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "AltDefaultDomainName"
strValue = sDefaultDomain
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "CachePrimaryDomain"
strValue = sPassword
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "AutoAdminLogon"
strValue = "1"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "DefaultUserName"
strValue = sUser
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "AltDefaultUserName"
strValue = sUser
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "DefaultPassword"
strValue = sPassword
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
strValueName = "ForceAutoLogon"
strValue = "1"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
End Sub
Hij blijft hangen bij AltDefaultDomainName
We hebben geprobeerd een Resume on error in te bouwen dat is gelukt maar nog steeds voert hij de script niet goed uit.