Cuestión : VBSCript

Hola, el

Please puede alguien explicar lo que se realiza el intentar siguiente. Lo sé que intenta cambiar el nombre de computadora pero no parece trabajar. Thanks.

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

de Network”) = compnm de WshNetwork.ComputerName
= objWMIService del strComputer

Set = GetObject (“winmgmts: \ \” y el strComputer y “\ raíz \ cimv2”) el
Set IPConfigSet = hostname del
Set del _
(“IP address selecto de objWMIService.ExecQuery de Win32_NetworkAdapterConfiguration donde IPEnabled=TRUE”) = el
For del _
(“DNSHostName selecto de objWMIService.ExecQuery de Win32_NetworkAdapterConfiguration donde IPEnabled=TRUE”) cada IPConfig en el
del de IPConfigSet
si no IsNull (IPConfig.IPAddress) entonces para el i=LBound (IPConfig.IPAddress) al arrIp del
de UBound (IPConfig.IPAddress) = partieron (IPConfig.IPAddress (i),” extremo If
Next
Next
de .")
/>NamePref = el

strNewCompNm = ucase (NamePref + arrip (2)&” - “&arrip(3)) objWMIService del
= GetObject determinados (“winmgmts: ¡” _
y “{impersonationLevel=impersonate}! \ \ ” y strComputer y \ cimv2 ") colItems del Dim Compnm
Set =
de objWMIService.ExecQuery (“Select * de Win32_OperatingSystem”, 48) para cada objItem en el colItems
OSversion = el
de objItem.Version si el <> de OSversion “5.1.2600” strFilePath del then
=” \ \ objFSO determinado del
de ldn.nbad.com \ de/>mputers.log " = el
de CreateObject (“Scripting.FileSystemObject”) en el curriculum vitae Next
del error fijó objFile = el
de objFSO.OpenTextFile (strFilePath, 8, verdades, 0) si el <> 0 Then
de Err.Number en objFSO determinado indicado = Nothing
strLog de If
del final de/> Wscript.Quit
= ahora y”, nombre de computadora, “y strlog
wscript.quit del
objFile.WriteLine del compnm class= del

Respuesta : VBSCript

¿En un cierto punto, la VM fue emigrada a partir de un datastore a otro?  La VM tiene octetos 0 de datos sobre un datastore.  ¿Tiene una ISO montada en ese datastore?  (Esto también la haría enumerar ese datastore funcionando.)