Normales Thema VBS-Script rückgängig machen (Gelesen: 1147 mal)
crazyhoesl
WSUS Neuling
Offline


I Love WSUS

Beiträge: 3
Standort: 85622 Feldkirchen
Mitglied seit: 31.01.07
Geschlecht: männlich
VBS-Script rückgängig machen
21.05.07 um 15:48:02
Beitrag drucken  
Hallo,

habe folgendes VBScript ausgeführt das ich im Netz gefunden habe, angepasst habe ich nur die http-Adresse meines eigenen WSUS. Ich kenne mich mit VB überhaupt nicht aus, gibt es denn einen Weg das ganze Rückgängig zu machen??? Bin für jede Antwort dankbar!



strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
     oslang = objItem.OSLanguage
next


'******************
'**Für die dt. OS**
'******************

if oslang=1031 then

     Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service where Caption = 'Automatische Updates'")
     
     stopservice
     ManipulateRegistry
     startservice
end if


'*******************
'**For the eng. OS**
'*******************
if oslang=1033 then

     Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service where Caption = 'Automatic Updates'")

     stopservice
     ManipulateRegistry
     startservice
end if


wscript.echo "WSUS wurde konfiguriert"




'*******************************************
'**Benötigte Funktionen                   **
'*******************************************

function stopservice

'******************************************
'**Stoppt den Dienst Automatische Updates**
'******************************************

     For Each objService in colServiceList
           errReturnCode = objService.Change( , , , , "Automatic")
           errReturn = objService.StopService()
     Next
end function



function startservice

'*******************************************
'**Startet den Dienst Automatische Updates**
'*******************************************

     For Each objService in colServiceList
           errReturnCode = objService.Change( , , , , "Automatic")
           errReturn = objService.StartService()
     Next
end function



function ManipulateRegistry

     const HKEY_LOCAL_MACHINE = &H80000002
     Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")


     updatePath = "SOFTWARE\Policies\Microsoft\windows\WindowsUpdate"
     WUPath = "SOFTWARE\Policies\Microsoft\windows\WindowsUpdate\AU"
     AutoUpdate = "SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update"


     oReg.DeleteValue HKEY_LOCAL_MACHINE,AutoUpdate,"DetectionStartTime"
     oReg.DeleteValue HKEY_LOCAL_MACHINE,AutoUpdate,"LastWaitTimeout"

     oReg.CreateKey HKEY_LOCAL_MACHINE,updatePath
     oReg.CreateKey HKEY_LOCAL_MACHINE,WUPath
     oReg.CreateKey HKEY_LOCAL_MACHINE,AutoUpdate

     oReg.SetStringValue HKEY_LOCAL_MACHINE,updatePath,"WUServer","http://TEST-WSUS"
     oReg.SetStringValue HKEY_LOCAL_MACHINE,updatePath,"WUStatusServer","http://TEST-WSUS"

     oReg.SetDWORDValue HKEY_LOCAL_MACHINE,AutoUpdate ,"AUState","2"


       '**********************************************
       '**Grundeinstellungnen für Externe Nutzer    **
       '**                                          **
       '**automatischer DoWnload                    **
       '**automatische Installation                 **
       '**keine auto Reboot wenn Benutzer eingeloggt**
       '**********************************************

     oReg.SetDWORDValue HKEY_LOCAL_MACHINE,WUPath,"NoAutoUpdate","0"
     oReg.SetDWORDValue HKEY_LOCAL_MACHINE,WUPath,"AUOptions","4"
     oReg.SetDWORDValue HKEY_LOCAL_MACHINE,WUPath,"ScheduledInstallDay","0"
     oReg.SetDWORDValue HKEY_LOCAL_MACHINE,WUPath,"UseWUServer","1"
     oReg.SetDWORDValue HKEY_LOCAL_MACHINE,WUPath,"RescheduleWaitTime","1"
     oReg.SetDWORDValue HKEY_LOCAL_MACHINE,WUPath,"NoAutoRebootWithLoggedOnUsers","1"
     oReg.SetDWORDValue HKEY_LOCAL_MACHINE,WUPath,"ScheduledInstallTime","12"


end function
  
Zum Seitenanfang
 
Sunny
Microsoft MVP
*****
Offline



Beiträge: 13101
Mitglied seit: 11.02.07
Geschlecht: männlich
Re: VBS-Script rückgängig machen
Antwort #1 - 21.05.07 um 15:57:25
Beitrag drucken  
crazyhoesl schrieb on 21.05.07 um 15:48:02:
habe folgendes VBScript ausgeführt das ich im Netz gefunden habe, angepasst habe ich nur die http-Adresse meines eigenen WSUS. Ich kenne mich mit VB überhaupt nicht aus, gibt es denn einen Weg das ganze Rückgängig zu machen???


Und warum führst Du ein Script aus, wenn Du nichts davon verstehst? Warum machst Du nicht vorher eine Sicherung der Registry? Geht ganz einfach mit ntbackup. Oder warum fragst Du nicht VORHER nach?

crazyhoesl schrieb on 21.05.07 um 15:48:02:
Bin für jede Antwort dankbar!
"SOFTWARE\Policies\Microsoft\windows\WindowsUpdate"


Du kannst in der Registry des betroffenen Rechners/Server entweder alle Einstellungen unterhalb: HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate löschen. Wobei Du WindowsUpdate auch löschen kannst.

Hast Du einen WSUS in einer Domain im Einsatz? Wenn ja, dann brauchst Du nur ein gpupdate /force auf der Commandline laufen zu lassen. Ansonsten gibts auch den Weg über gpedit.msc.
  

(Du musst Dich Einloggen oder Registrieren um Multimediadateien oder Links zu sehen).
Zum Seitenanfang
crazyhoesl
WSUS Neuling
Offline


I Love WSUS

Beiträge: 3
Standort: 85622 Feldkirchen
Mitglied seit: 31.01.07
Geschlecht: männlich
Re: VBS-Script rückgängig machen
Antwort #2 - 21.05.07 um 16:10:55
Beitrag drucken  
Vielen lieben Dank für die schnelle Antwort!!!!
  
Zum Seitenanfang
 
Bookmarks: Facebook Google Google+ Linked in Twitter Yahoo
 



Nutzungsbedingungen | Datenschutz
Kontakt | RSS | Feedback | Impressum
Facebook | News einsenden