Users Guide

objInstance.Put_
'***Ifanyerrorsoccurred,lettheuserknow
IfErr.Number<>0Then
WScript.Echo"SettingPXEonnextrebootfailed."
EndIf
End If
'*** Sub used to display the correct usage of the script
Sub Usage()
Dim strMessage
strMessage = "incorrect syntax. You should run: " & vbCRLF & _
"cscript.exe//nologoSampleForcePXE.vbs<systemname>"
WScript.Echo strMessage
End Sub
('****************************************************
'*** Name: SampleForcePXE.vbs
'*** Zweck: Dell OMCI-Clientdazuzuzwingen,beimnächstenNeustartzurPXEzustarten.
'*** Verwendung: cscript.exe //nologo SampleForcePXE.vbs <Systemname>
'***
'*** Dieses Beispielscript dient nur zur Anschauung und wurde nicht
'***getestet.DellgibtauchkeineGarantieleistungundlehntjeglichen
'***Schadensersatzanspruchdiesbezüglichab.Dellbietetkeinentechnischen
'***SupporthinsichtlichsolcherScriptsan.WeitereInformationenüberWMI-
'***Scripts finden Sie in der entsprechenden Microsoft-Dokumentation.
'****************************************************
Option Explicit
'*** Variablen angeben
Dim strNameSpace
Dim strComputerName
Dim strClassName
Dim strKeyValue
Dim objInstance
Dim strPropName
Dim strPropValue
'***PrüfenSie,obdierichtigeausführbareDateizurAusführungdesScriptsverwendetwurde
'*** und ob alle Parameter weitergegeben wurden
If (LCase(Right(WScript.FullName, 11)) = "wscript.exe" ) Or _
(Wscript.Arguments.Count<1)Then
CallUsage()
WScript.Quit
End If
'*** Variablen initialisieren
strNameSpace = "root/Dellomci"
strComputerName = WScript.Arguments(0)
strClassName = "Dell_Configuration"
strKeyValue = "Configuration"
strPropName = "ForcePXEOnNextBoot"
'*** Instanz der Dell_Configuration-Klasse abrufen (es sollte
'*** nur 1 Instanz vorhanden sein).
Set objInstance = GetObject("WinMgmts:{impersonationLevel=impersonate}//" &_
strComputerName&"/"&strNameSpace&":"&strClassName&"="&_
Chr(34)&strKeyValue&Chr(34))
strPropValue = objInstance.Properties_.Item(strPropName).Value
'***DenneuenWertfürdieEigenschafteinstellenunddieInstanzspeichern,abernur,
'*** falls der aktuelle Wert nicht schon 3 ist ('Aktiviert')
If strPropValue <> 3 Then
objInstance.Properties_.Item(strPropName).Value=3
objInstance.Put_
'***SolltenFehleraufgetretensein,mussderBenutzerbenachrichtigtwerden.
IfErr.Number<>0
WScript.Echo"SettingPXEonnextrebootfailed."
EndIf
End If
'*** Sub verwendet, um die richtige Verwendung des Scripts anzuzeigen
Sub Usage()
Dim strMessage
strMessage = "incorrect syntax. You should run: " & vbCRLF & _
"cscript.exe//nologoSampleForcePXE.vbs<Systemname>"
WScript.Echo strMessage
End Sub)

Wake Up On LAN aktivieren
ImFolgendenisteinBeispielvonVBScriptaufgeführt,dasWakeUpOnLANaufeinemDellOMCI-Client aktiviert.