Thierry's Official Weblog

Windows - Ajouter SNMP dans Panneau Config

Windows - Ajouter SNMP dans  Panneau Config

Below is a VB script which copy's the SNMP files & INSTSRV.EXE from a share to systroot\system32\snmp on the local machine. It then uses instsrv.exe to install the "SNMP Service" and the "SNMP Trap Service" .... Then using WMI, it make's sure that both services are set to automatic and also starts the service. Finally it deletes instsrv.exe ... Walaa! SNMP is installed, started and can now be configured locally or via GPO! ENJOY!

I pulled these files out of %systemroot%\ServicePackFiles\i386 .. easiest way to find them is to search on the folder for snmp*.*


INSTSRV.EXE is part of the Windows Resource Kit.

Set Shell = Wscript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

'This little script will install the snmp services SNMP Service and SNMP Trap Service.

'Function SNMP --- copy's files from your share (you must edit that line) to the local PC under the sysroot\system32\snmp folder.
'It then run's instsrv.exe from this location and installs the two services, then deletes the file instsrv.exe ..

'Function root --- returns the system root using WMI..

'Function srvstart --- starts whatever service you plug into srvstart CHR(34) & "SNMP Service" & CHR(34)
'CHR(34) = double quotes..

wscript.sleep 3000

srvstart chr(34) & "SNMP Service" & CHR(34)
srvstart chr(34) & "SNMP Trap Service" & CHR(34)


Function snmp
root sysroot

FSO.copyFolder "\\server\share with snmp files & instsrv.exe",sysroot & "\system32\snmp",TRUE sysroot & "\system32\snmp\instsrv.exe " & CHR(34) & "SNMP Service" & CHR(34) & " " & sysroot & "\system32\snmp\snmp.exe"
wscript.sleep 2000 sysroot & "\system32\snmp\instsrv.exe " & CHR(34) & "SNMP Trap Service" & CHR(34) & " " & sysroot & "\system32\snmp\snmptrap.exe"
wscript.sleep 5000

FSO.deleteFile sysroot & "\system32\snmp\instsrv.exe"

End Function

Function root(sysroot)
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cim v2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
sysroot = objOperatingSystem.WindowsDirectory
End Function

'Start a service
Function srvstart (Service)
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cim v2")
Set colServices = objWMIService.ExecQuery("Select * from Win32_Service where Name=" & Service)
For Each objService in colServices
If objService.Started Then
End If
If UCASE(objService.StartMode) = "DISABLED" or UCASE(objService.StartMode) = "MANUAL" Then
errReturnCode = objService.ChangeStartMode("Automatic")
If errReturnCode <> 0 Then
errorlog errReturnCode
End If
WScript.Sleep 2000
End If
If Not objService.Started Then
errReturnCode = objService.StartService()
If errReturnCode <> 0 Then
errorlog errReturnCode
End If
WScript.Sleep 2000
End If
Set colServices = Nothing
Set objWMIService = Nothing
End Function

0 Poster un commentaire

A découvrir aussi

Inscrivez-vous au blog

Soyez prévenu par email des prochaines mises à jour

Rejoignez les 2 autres membres