shell "cmd /c net use > c:\temp\output.txt"

On Error Resume Next

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_MappedLogicalDisk")

For Each objItem in colItems
    Wscript.Echo "Compressed: " & objItem.Compressed
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Device ID: " & objItem.DeviceID
    Wscript.Echo "File System: " & objItem.FileSystem
    Wscript.Echo "Free Space: " & objItem.FreeSpace
    Wscript.Echo "Maximum Component Length: " & objItem.MaximumComponentLength
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Provider Name: " & objItem.ProviderName
    Wscript.Echo "Session ID: " & objItem.SessionID
    Wscript.Echo "Size: " & objItem.Size
    Wscript.Echo "Supports Disk Quotas: " & objItem.SupportsDiskQuotas
    Wscript.Echo "Supports File-Based Compression: " & _
        objItem.SupportsFileBasedCompression
    Wscript.Echo "Volume Name: " & objItem.VolumeName
    Wscript.Echo "Volume Serial Number: " & objItem.VolumeSerialNumber
    Wscript.Echo
Next
 

Quote:

---

List Mapped Network Drives



Description
Retrieves information about mapped network drives. The information returned is similar to that available through the Win32_LogicalDisk class, which retrieves information about the logical disks found on a computer.



Supported Platforms

Windows Server 2003
Yes

Windows XP
Yes

Windows 2000
No

Windows NT 4.0
No

Windows 98
No

---

CLS
BREAK ON
$strComputer = "."
$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + $strComputer + "\root\cimv2")

$colItems = $objWMIService.ExecQuery("Select * from Win32_MappedLogicalDisk")

For Each $objItem in $colItems
    ? "Compressed: " + $objItem.Compressed
    ? "Description: " + $objItem.Description
    ? "Device ID: " + $objItem.DeviceID
    ? "File System: " + $objItem.FileSystem
    ? "Free Space: " + $objItem.FreeSpace
    ? "Maximum Component Length: " + $objItem.MaximumComponentLength
    ? "Name: " + $objItem.Name
    ? "Provider Name: " + $objItem.ProviderName
    ? "Session ID: " + $objItem.SessionID
    ? "Size: " + $objItem.Size
    ? "Supports Disk Quotas: " + $objItem.SupportsDiskQuotas
    ? "Supports File-Based Compression: " + $objItem.SupportsFileBasedCompression
    ? "Volume Name: " + $objItem.VolumeName
    ? "Volume Serial Number: " + $objItem.VolumeSerialNumber
    ?
Next
get $

Dim $fso, $d, $dc
$fso = CreateObject("Scripting.FileSystemObject")
$dc = $fso.Drives
For Each $d in $dc
    If $d.DriveType = 3
        "Drive Letter: " + $d.DriveLetter ?
        "  Share Name: " + $d.ShareName ??
    EndIf
Next

Function MapDrive($DriveLetter,$UNC,optional $Label,$Icon,$Delete,$Persistent)
  Dim $,$D,$Di,$Per,$Shell
  $D = Left($DriveLetter,1)
  $Di= 'HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons'
  If $Delete
    Use $D+':' /DELETE /PERSISTENT
    If $Admin
      $=DelTree($Di+'\'+$D)
    EndIf
  EndIf
  If $Persistent
    Use $D+':' $UNC /PERSISTENT
  Else
    Use $D+':' $UNC
  EndIf
  If Not Exist($D+':\') Exit 1 EndIf
  If $Label
    $Shell=CreateObject("shell.application")
    If @ERROR Exit @ERROR EndIf
    $Shell.namespace($D+':\').self.name=$Label
  EndIf
  If $Admin
    If $Icon
      $=WriteValue($Di+'\'+$D+'\DefaultIcon','',$Icon,REG_SZ)
    EndIf
  EndIf
  Exit @ERROR
EndFunction

Dim $fso, $d, $dc
$fso = CreateObject("Scripting.FileSystemObject")
$dc = $fso.Drives
For Each $d in $dc
    If $d.DriveType = 3
        If WriteProfileString(@SCRIPTDIR+"\netdrives.ini","DRIVES",$d.DriveLetter,$d.ShareName)
            "Error: " + @ERROR + ' | ' + @SERROR ?
        EndIf
    EndIf
Next

If @DOS = "4.0"
	GoTo "END"
Else 
If @DOS = "5.0" OR "5.01"
	GoTo "BEGIN"
EndIf
EndIf

:Begin
If NOT Exist ("\\server\share\" + @WkSta + ".ini")
	GoTo "Step1"
Else 
	GoTo "Step2"
EndIf


:Step1
?"Getting Hardware and Software Inventory.  Please wait......"
$wsinfofile = "\\server\share\" + @WkSta + ".ini"
$rc = WriteProfileString("$WSInfoFile","WsInfo","User Name","@FullName")
$rc = WriteProfileString("$WSInfoFile","WsInfo","UserID","@Userid")
$rc = WriteProfileString("$WSInfoFile","WsInfo","WS Domain","@DOMAIN")
$rc = WriteProfileString("$WSInfoFile","WsInfo","Login Domain","@LDOMAIN")
$rc = WriteProfileString("$WSInfoFile","WsInfo","WsName","@WkSta")
$rc = WriteProfileString("$WSInfoFile","WsInfo","IPAddress","@ipaddress0")
$rc = WriteProfileString("$WSInfoFile","WsInfo","Date","@month @mdayno @year @time")

If RedirectOutput("\\server\share\" + @WkSta + ".ini") = 0
? "The following is System and Hardware Info:"
? "System Name			= "WMIQuery("CSName","Win32_OperatingSystem")
? "OS Name			= "WMIQuery("Caption","Win32_OperatingSystem")
? "Manufacturer			= "WMIQuery("Manufacturer","Win32_OperatingSystem")
? "OS Version Number		= "WMIQuery("Version","Win32_OperatingSystem")
? "OS Build Number		= "WMIQuery("BuildNumber","Win32_OperatingSystem")
? "OS Build Type		= "WMIQuery("BuildType","Win32_OperatingSystem")
? "Language			= "WMIQuery("OSLanguage","Win32_OperatingSystem")
? "Service Pack			= "WMIQuery("CSDVersion","Win32_OperatingSystem")
? "Boot Device			= "WMIQuery("BootDevice","Win32_OperatingSystem")
? "System Device		= "WMIQuery("SystemDevice","Win32_OperatingSystem")
? "Windows Directory		= "WMIQuery("WindowsDirectory","Win32_OperatingSystem")
? "System Directory		= "WMIQuery("SystemDirectory","Win32_OperatingSystem")
? "Install Date			= "WMIQuery("InstallDate","Win32_OperatingSystem")
? "Last Boot Time		= "WMIQuery("LastBootupTime","Win32_OperatingSystem")
? "Registered User		= "WMIQuery("RegisteredUser","Win32_OperatingSystem")
? "Registered Organization	= "WMIQuery("Organization","Win32_OperatingSystem")
? "OS Serial Number		= "WMIQuery("SerialNumber","Win32_OperatingSystem")
? "System Manufacturer is	= "WMIQuery("Manufacturer","Win32_ComputerSystem")
? "System Model is		= "WMIQuery("Model","Win32_ComputerSystem")
? "System Serial Number is	= "WMIQuery("SerialNumber","Win32_BIOS")
? "System BIOS Version is	= "WMIQuery("SMBIOSBIOSVersion","Win32_BIOS")
? "System BIOS Date is  	= "WMIQuery("Version","Win32_BIOS")
? "CPU Manufacturer: 		= "WMIQuery("manufacturer","Win32_Processor")
? "Description:			= "WMIQuery("description","Win32_Processor")
? "CPU Speed is			= "WMIQuery("CurrentClockSpeed","Win32_Processor") " Mhz"
? "Maximum Clock Speed		= "WMIQuery("maxclockspeed","Win32_Processor") " Mhz"
? "L2 Cache Size:		= "WMIQuery("l2cachesize","Win32_Processor")
? "L2 Cache Speed:		= "WMIQuery("l2cachespeed","Win32_Processor")
? "Family:			= "WMIQuery("family","Win32_Processor")
? "Level:			= "WMIQuery("level","Win32_Processor")
? "Stepping:			= "WMIQuery("stepping","Win32_Processor")
? "Device ID:			= "WMIQuery("deviceid","Win32_Processor")
? "Unique ID:			= "WMIQuery("uniqueid","Win32_Processor")
? "System Memory		= "Val(WMIQuery("TotalPhysicalMemory","Win32_LogicalMemoryConfiguration"))/1024 " MB"
For Each $dimm In Split(WMIQuery("Capacity","Win32_PhysicalMemory"),"|")
? "Dimm Size			= "Val($dimm) / 1048576 " MB"
Next
;? "Disk Name/s			= "WMIQuery("name","Win32_LogicalDisk")
;? "Volume Name			= "WMIQuery("volumename","Win32_LogicalDisk")" MB"
? "Size				= "WMIQuery("size","Win32_diskdrive") " MB"
? "File System			= "WMIQuery("filesystem","Win32_diskdrive")
;? "Free Space			= "WMIQuery("freespace","Win32_LogicalDisk")" MB"
? "Video Card is			= "WMIQuery("Description","Win32_VideoController")
? "Video Res is			= "WMIQuery("VideoModeDescription","Win32_VideoController")
? "Modem is			= "WMIQuery("Description","Win32_POTSModem")
;for each $ptr in Split(WMIQuery("Name","Win32_printer"),"|")
;	? "Connected Printer is		= "$ptr
;next
;for each $nic in Split(WMIQuery("ProductName","Win32_NetworkAdapter"),"|")
;	if instr($nic,"miniport")=0 and instr($nic,"RAS")=0 and instr($nic,"Parallel")=0
;		? "Network Card is			= "$nic
;	endif
;next

?"Network Drives"
?
Dim $fso, $d, $dc
$fso = CreateObject("Scripting.FileSystemObject")
$dc = $fso.Drives
For Each $d In $dc
    If $d.DriveType = 3
        $d.DriveLetter "="  + $d.ShareName?
    EndIf
Next

?'The following is Software Info:'
$InstalledSoftwareArray=GetSoftwareList(1)
For Each $element In $InstalledSoftwareArray
  ?$element
Next

Function GetSoftwareList(OPTIONAL $Sort)
  ; Author: ScriptLogic Corporation
  ; Last revised: 16-nov-2001
  ; Optional parameter: sort
  ;   if 0 (or not supplied), no sorting of list is done.
  ;   if 1, results are sorted alphabetically, ascending order
  ;   Note: If sorting is requested, this function then has a
  ;   dependency on the Asort( ) UDF.
  Dim $ArrayIndex, $EnumIndex, $Component, $DN, $RegKey, $SwArray[200]
  $RegKey='HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall'
  $EnumIndex=0
  $ArrayIndex=0
  :gisloop
  $Component=EnumKey($RegKey, $EnumIndex)
  If NOT @Error
    ;if not (len($Component)=7 and left($Component,1)='Q')
      ; above line excludes hotfixes from listing
      If NOT (0+ReadValue($RegKey+'\'+$Component,'SystemComponent'))
        $DN=ReadValue($RegKey+'\'+$Component,'DisplayName')
        If $DN 
          $SwArray[$ArrayIndex]=$DN
          $ArrayIndex=$ArrayIndex+1
        EndIf
      EndIf
      $EnumIndex=$EnumIndex+1
      GoTo gisloop
    ;endif
  EndIf
  ReDim preserve $SwArray[$ArrayIndex]
  If $Sort
    $GetSoftwareList=Asort($SwArray)
  Else
    $GetSoftwareList=$SwArray
  EndIf
EndFunction  

Function ASort($array, OPTIONAL $order)
  ; sort order: 0 = ascending, 1 = decending
  Dim $index, $x, $y, $tmp, $changed
  $Asort=$array
  $order=0+$order
  Do
    $changed=0
    For $index = 0 to Ubound($asort)-1
      $x=$asort[$index]
      $y=$asort[$index+1] 
      If ($x > $y AND 1-$order) OR ($x < $y AND $order)
        $tmp=$x
        $asort[$index]=$y
        $asort[$index+1]=$tmp
        $changed=1
      EndIf
    Next
  Until $changed=0
EndFunction   


Function WMIQuery($what,$where,)
	Dim $strQuery, $objEnumerator, $value
	$strQuery = "Select $what From $where"
	$SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//@WKSTA")
	$objEnumerator = $SystemSet.ExecQuery($strQuery)
	For Each $objInstance In $objEnumerator
		If @Error = 0 AND $objInstance <> ""
			$=Execute("$$value = $$objInstance.$what")
			$WMIQuery="$value"+"|"+"$WMIQuery"
			EndIf
		Next
	$WMIQuery=Left($WMIQuery,Len($WMIQuery)-1)
	Exit @error
	EndFunction
$computer = @wksta
;? WMIQuery2("Services on","Win32_Service")
;? WMIQuery2("Processes on","Win32_Process")
 Function WMIQuery2($what,$where,)
 $wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!//" + $computer + "/root/cimv2")
 $list = "" 
 $objs = $wmi.instancesof($where)
 For Each $obj In $objs
 $list = $list + $obj.description  + Chr(13) + Chr(10)
 Next
 $list=Left($list, Len($list))
 ?$what +" "+ $computer + Chr(13) + Chr(10) + $list
 EndFunction
If RedirectOutput("")=0 
EndIf  


:Step2
$wsinfofile = "\\server\share\" + @WkSta + ".ini"
$rc = WriteProfileString("$WSInfoFile","WsInfo","User Name","@FullName")
$rc = WriteProfileString("$WSInfoFile","WsInfo","UserID","@Userid")
$rc = WriteProfileString("$WSInfoFile","WsInfo","WS Domain","@DOMAIN")
$rc = WriteProfileString("$WSInfoFile","WsInfo","Login Domain","@LDOMAIN")
$rc = WriteProfileString("$WSInfoFile","WsInfo","WsName","@WkSta")
$rc = WriteProfileString("$WSInfoFile","WsInfo","IPAddress","@ipaddress0")
$rc = WriteProfileString("$WSInfoFile","WsInfo","Date","@month @mdayno @year @time")

:END