Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

VBScript inventario

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

VBScript inventario

Messaggioda Al3x » gio apr 01, 2010 8:29 am

Mi occorrerebbe uno script in VBS che fatto girare in un pc da una pendrive ricavi alcune info di sistema e le memorizzi in un file, sempre nella pendrive, che abbia come nome l'hostname del pc.

Le info che dovrebbero confluire dentro il file sono le seguenti:
- Nome macchina
- Versione sistema operativo e Service Pack
- Ram installata
Opzionale, se possibile, la versione di Office con relativo Service Pack

Ho già uno script modificato che ho dato agli utenti per fargli comparire a schermo IP e HOSTNAME ma al suo interno c'è altro codice che ho disattivato e che potrebbe essere utile allo scopo. Il prolema è che non conosco le istruzioni per far si che l'output finisca in un file oltre che a schermo.

Codice: Seleziona tutto
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
 
For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then
        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
            WScript.Echo  "Indirizzo IP: " & IPConfig.IPAddress(i)

        Next
    End If
Next

Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colSettings
' Wscript.Echo "OS Name: " & objOperatingSystem.Name
' Wscript.Echo "Version: " & objOperatingSystem.Version
' Wscript.Echo "Service Pack: " & _
' objOperatingSystem.ServicePackMajorVersion _
' & "." & objOperatingSystem.ServicePackMinorVersion
' Wscript.Echo "OS Manufacturer: " & objOperatingSystem.Manufacturer
' Wscript.Echo "Windows Directory: " & _
' objOperatingSystem.WindowsDirectory
' Wscript.Echo "Locale: " & objOperatingSystem.Locale
' Wscript.Echo "Available Physical Memory: " & _
' objOperatingSystem.FreePhysicalMemory
' Wscript.Echo "Total Virtual Memory: " & _
' objOperatingSystem.TotalVirtualMemorySize
' Wscript.Echo "Available Virtual Memory: " & _
' objOperatingSystem.FreeVirtualMemory
' Wscript.Echo "OS Name: " & objOperatingSystem.SizeStoredInPagingFiles
Next
Set colSettings = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_ComputerSystem")
For Each objComputer in colSettings
 Wscript.Echo "Nome Computer: " & objComputer.Name
Next
è primavera finalmente! [:)]
Avatar utente
Al3x
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 7411
Iscritto il: sab gen 10, 2009 12:51 pm
Località: http://127.0.0.1/

Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 0 ospiti

cron
Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising