Ba Jesiel
Como eu te disse no outro caso, quando eu fosse dar continuidade as duvidas começariam... olha como esta o script usando a parte de cima e o outro caso que haviamos falado, e ele me da um erro na linha 40 ( erro de sintaxe ) e eu ja tive algo assim, ele esta sendo causado pelo sub se nao me engano e nao sei como resolver caro amigo..
Obs, na parte do 2000 tb vou entrar com o que vc me passou para verificar sp do 2000 e instalar e tb hot fix...
abraço.
Cod.
Dim WSHShell, WshProcessEnvironment, WSHNetwork
Set WSHShell = CreateObject("WScript.Shell")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set objNetwork = CreateObject("Wscript.Network")
Set WshProcessEnvironment = WshShell.Environment("Process")
strComputer = "."
Set os = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
For Each obj In os
Set prps = obj.Properties_
OSLang = prps("OSLanguage").value
BldNum = prps("BuildNumber").value
Next
Select Case BldNum
Case "2600"
subXP
Case "2195"
subWin2000()
End Select
Sub subXP()
'Instala Antivirus
WSHShell.Run "\\servidor\dados\Antivirus\Instala.BAT"
'Service Pack
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colSettings
instalaSP objOperatingSystem.ServicePackMajorVersion &_
"." & objOperatingSystem.ServicePackMinorVersion
Next
Sub instalaSP(servicepack)
strServicePack = MID(servicepack,1,1)
Select Case strServicePack
Case "1"
objshell.run "cmd /c \\servidor\patch\patchs\sp\sp1.exe /quiet /passive /norestart /overwriteoem /nobackup /nodialog"
Case "2"
objshell.run "cmd /c \\servidor\patch\patchs\sp\sp2.exe /quiet /passive /norestart /overwriteoem /nobackup /nodialog"
Case "3"
objshell.run "cmd /c \\servidor\patch\patchs\sp\sp3.exe /quiet /passive /norestart /overwriteoem /nobackup /nodialog"
Case "4"
instalaKB
End select
End sub
'Hot Fix
sub instalaKB
Const HKLM = &H80000002
set objshell = createobject("wscript.shell")
strComputer = "."
Set oReg=GetObject("winmgmts:\\" & _
strComputer & "\root\default:StdRegProv")
oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Updates\Windows XP\SP4\KB923561","Type",strValue2
If IsNull(strValue2) Then
objshell.run "cmd /c \\servidor\patch\patchs\MS09-010\KB923561.exe /quiet /passive /norestart /overwriteoem /nobackup /nodialog"
End If
End sub
Remove Windows Messenger
WSHShell.Run "cmd /c sysocmgr.exe /i:%windir%\inf\sysoc.inf /u:\\servidor\dados\msn.txt"
Desabilita o Agendamento no Windows
WSHShell.Run "cmd /c secedit.exe /configure /db mod.sdb /CFG \\servidor\dados\Tasks.inf /overwrite /quiet"
Set WSHShell = Nothing
Msg = Msg & "Maquina XP Finazilizada" & Chr(10)
MsgBox msg,60,"Configurador"
End sub
Sub subWIn2000()
Remove Windows Messenger
WSHShell.Run "cmd /c sysocmgr.exe /i:%windir%\inf\sysoc.inf /u:\\servidor\dados\msn.txt"
Desabilita o Agendamento no Windows
WSHShell.Run "cmd /c secedit.exe /configure /db mod.sdb /CFG \\servidor\dados\Tasks.inf /overwrite /quiet"
Set WSHShell = Nothing
Msg = Msg & "Maquina 2000 Finalizada" & Chr(10)
MsgBox msg,60,"Configurador"
End Sub
