Vraag : VBSCript

Hallo, kan/>Please


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

strComputer = WshNetwork.ComputerName
compnm = strComputer

Set = GetObject („winmgmts: \ \“ & strComputer & „\ wortel \ cimv2“)
Set IPConfigSet = objWMIService.ExecQuery _
(„Uitgezochte IPAddress van Win32_NetworkAdapterConfiguration waar IPEnabled=TRUE“)
Set hostname = objWMIService.ExecQuery _
(„Uitgezochte DNSHostName van Win32_NetworkAdapterConfiguration waar IPEnabled=TRUE“)
For Elke IPConfig in IPConfigSet
als niet IsNull (IPConfig.IPAddress) toen
voor i=LBound (IPConfig.IPAddress) aan UBound (IPConfig.IPAddress)
arrIp = verdeelde (IPConfig.IPAddress (i),“. „)

Next
Eind If
Next
NamePref = „LDNWS "

strNewCompNm = ucase (NamePref + arrip (2) &“ - „&arrip (3))/> Vastgestelde objWMIService
& „{impersonationLevel=impersonate}! \ \ “ & strComputer &“ \ de wortel \ cimv2 ")
Dim Compnm
Set colItems = objWMIService.ExecQuery („Select * van Win32_OperatingSystem“, 48)
voor Elke objItem in colItems
OSversion = objItem.Version
then
„5.1.2600“/> strFilePath =“ \ \ ldn.nbad.com \ wortel \ w2kComputers.log "
objFSO = CreateObject („Scripting.FileSystemObject“)
op Fout plaatste hervat/> Vastgestelde objFile Next
ePath, Ware 8, 0)
als Err.Number <> 0 Then
op Fout GoTo 0
objFSO = Nothing
het Eind van Wscript.Quit
If
strLog = nu &“, de Naam van de Computer, „& compnm
objFile.WriteLine strlog
wscript.quit

Antwoord : VBSCript

Op wat punt, was VM gemigreerd van één datastore aan een andere?  VM heeft 0 bytes van gegevens over één datastore.  Heeft het een ISO opgezet op dat datastore?  (Dit zou het ook om dat datastore in gebruik veroorzaken van een lijst te maken van.)