Si señor!!! Cuanta razón... ya funciona, fallo mio xD
Muchas gracias .
Pero ahora quiero después de ese IF montar otro pero no se en que fallo ahora ...
Código
strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Dim USUARIO Dim DOMINIO Dim SID Set objshell = createobject("wscript.shell") USUARIO = objshell.expandenvironmentstrings("%USERNAME%") DOMINIO = objshell.expandenvironmentstrings("%USERDOMAIN%") Set objAccount = objWMIService.Get _ ("Win32_UserAccount.Name='" & USUARIO & "',Domain='" & DOMINIO & "'") SID = objAccount.SID Msgbox objshell.expandenvironmentstrings(SID) DIM CADENA CADENA = objshell.expandenvironmentstrings("HKEY_USERS\"&SID&"\Software\Microsoft\Windows\CurrentVersion\BackgroundAccessApplications\GlobalUserDisabled") Msgbox objshell.expandenvironmentstrings(CADENA) DIM CADENA2 CADENA2 = objshell.expandenvironmentstrings("HKEY_USERS\"&SID&"\Control Panel\International\User Profile\HttpAcceptLanguageOptOut") Msgbox objshell.expandenvironmentstrings(CADENA2) On Error Resume Next Set oShell = WScript.CreateObject("WScript.Shell") dato = oShell.RegRead(CADENA) Msgbox objshell.expandenvironmentstrings(dato) DIM WshShell Set WshShell = WScript.CreateObject("WScript.Shell") IF Err.Number <> 0 THEN 'Ha ocurrido un error IF Err.Number = -2147024894 THEN WshShell.RegWrite CADENA, 1, "REG_DWORD" MsgBox ("Opcion 1") END IF WScript.Quit ELSE 'Valor encontrado IF dato = 0 THEN WshShell.RegWrite CADENA, 1, "REG_DWORD" Msgbox("Opcion2") END IF END IF DIM WshShell2 Set oShell = WScript.CreateObject("WScript.Shell") dato2 = oShell.RegRead(CADENA) Msgbox objshell.expandenvironmentstrings(dato2) Set WshShell2 = WScript.CreateObject("WScript.Shell") IF Err.Number <> 0 THEN 'Ha ocurrido un error IF Err.Number = -2147024894 THEN WshShell2.RegWrite CADENA2, 1, "REG_DWORD" MsgBox ("Opcion 1_2") END IF WScript.Quit ELSE 'Valor encontrado IF dato2 = 0 THEN WshShell2.RegWrite CADENA2, 1, "REG_DWORD" Msgbox("Opcion2_2") END IF END IF Msgbox("FIN")
Derspues de este comando:
Msgbox objshell.expandenvironmentstrings(dato2)
Me muestra el valor correspondiente pero no se ejecuta nada más... pasa directamente al mensaje:
Msgbox("FIN")
Alguien sabe que se me está pasando¿?
Gracias de nuevo.