Questione : VBSCript

Ciao, il

Please può qualcuno spiegare che cosa la seguente prova effettua. Lo conosco che prova a cambiare il nome di calcolatore ma non sembra funzionare. Thanks.

Set WshNetwork = WScript.CreateObject (“WScript. strComputer del

di Network„) = compnm di WshNetwork.ComputerName
= objWMIService dello strComputer

Set = GetObject (“winmgmts: \ \„ & lo strComputer & “\ radice \ cimv2„)
Set IPConfigSet = hostname del
Set del _
(“IP address prescelto di objWMIService.ExecQuery da Win32_NetworkAdapterConfiguration dove IPEnabled=TRUE„) =
For del _
(“DNSHostName prescelto di objWMIService.ExecQuery da Win32_NetworkAdapterConfiguration dove IPEnabled=TRUE„) ogni IPConfig nel
del di IPConfigSet
se non IsNull (IPConfig.IPAddress) allora per i=LBound (IPConfig.IPAddress) al arrIp del
di UBound (IPConfig.IPAddress) = hanno spaccato (IPConfig.IPAddress (i),„ estremità If
Next
Next
di .")
/>NamePref =

strNewCompNm = ucase (NamePref + arrip (2)&„ - “&arrip(3)) objWMIService del
= GetObject stabiliti (“winmgmts: „ _
& “{impersonationLevel=impersonate}! \ \ „ & strComputer &„ \ radice \ cimv2 ") colItems del
Dim Compnm
Set =
di objWMIService.ExecQuery (“Select * da Win32_OperatingSystem„, 48) per ogni objItem nel colItems
OSversion = nel
di objItem.Version se il <> di OSversion “5.1.2600„ strFilePath del then
=„ \ \ objFSO stabilito
di/>mputers.log w2kCo CreateObject (“Scripting.FileSystemObject„) sul riassunto Next
di errore si regoli objFile =
di objFSO.OpenTextFile (strFilePath, 8, allineare, 0) se <> 0 Then
di Err.Number sul objFSO stabilito di avanzamento = su Nothing
strLog di If
di conclusione di/> Wscript.Quit
= ora &„, nome di calcolatore, “& strlog
wscript.quit del
objFile.WriteLine del compnm class= del

Risposta : VBSCript

Ad un certo punto, il VM è stato migrato da un datastore ad un altro?  Il VM ha byte 0 dei dati su un datastore.  Ha un iso montato su quel datastore?  (Questo inoltre lo indurrebbe ad elencare quel datastore in uso.)