Frage : VBSCript

Hallo, kann

Please jemand erklären, was das folgende Versuchen durchführen. Ich kenne es versuchend, die Computerbezeichnung zu ändern, aber sie scheint nicht zu arbeiten. Thanks.

Set WshNetwork = WScript.CreateObject („WScript. Network“)

strComputer = WshNetwork.ComputerName
compnm = strComputer

Set objWMIService = GetObject („winmgmts: \ \“ u. strComputer u. „\ Wurzel \ cimv2“)
Set IPConfigSet = objWMIService.ExecQuery _
(„auserwähltes IP address von Win32_NetworkAdapterConfiguration, wo IPEnabled=TRUE“)
Set hostname = objWMIService.ExecQuery _
(„auserwähltes DNSHostName von Win32_NetworkAdapterConfiguration, wo IPEnabled=TRUE“)
For jedes IPConfig in IPConfigSet
, wenn nicht IsNull (IPConfig.IPAddress) dann
für i=LBound (IPConfig.IPAddress) UBound (IPConfig.IPAddress)
zum arrIp = sich aufspaltete (IPConfig.IPAddress (i),“ .")

Next
Ende If
Next
NamePref = „LDNWS "

strNewCompNm = ucase (NamePref + arrip (2)&“ - „&arrip (3))
gesetztes objWMIService = GetObject („winmgmts: “ _
u. „{impersonationLevel=impersonate}! \ \ “ u. strComputer u.“ \ Wurzel \ cimv2 ")
Dim Compnm
Set colItems = objWMIService.ExecQuery („Select * von Win32_OperatingSystem“, 48)
für jedes objItem im colItems
OSversion = im objItem.Version
, wenn OSversion <> „5.1.2600“ then
strFilePath =“ \ \ ldn.nbad.com \ Wurzel \ w2kComputers.log "
gesetztes objFSO = CreateObject („Scripting.FileSystemObject“)
auf Störungs-Zusammenfassung Next
objFile = objFSO.OpenTextFile (strFilePath, 8, zutreffendes, 0)
wenn Err.Number <> 0 Then
auf Störung Goto- 0
gesetztem objFSO = Nothing
Wscript.Quit
Ende If
strLog = jetzt u.“, Computerbezeichnung, „u. compnm
objFile.WriteLine strlog
wscript.quit

Antwort : VBSCript

Zu einem bestimmten Zeitpunkt wurde die VM von einem datastore zu anderen abgewandert?  Die VM hat Bytes 0 Daten bezüglich eines datastore.  Hat sie eine ISO, die an diesem datastore angebracht wird?  (Dieses würde sie auch veranlassen, dieses gebräuchliche datastore zu verzeichnen.)