;Variables
$ServerFile = "C:\admin\Servers.txt"

;-------Information
$nul = Open(1,"$ServerFile")
$server = ReadLine(1)
	While $server <> "EndList"

$ = RedirectOutput ("C:\admin\AvailDiskSpace.txt")
$WMI = GetObject("winmgmts:\\" + @WKSTA + "\root\cimv2")
$HardDrives = $WMI.ExecQuery("Select * From Win32_LogicalDisk Where DriveType=3")
For Each $Drive in $HardDrives
	? "     Drive Letter: " $Drive.Name
	? "      Drive Space: " $Drive.Size
	? " Drive Free Space: " $Drive.FreeSpace
	?
Next

break on

$ServerFile = "C:\admin\Servers.txt"

;-------Information

$ = RedirectOutput ("C:\admin\AvailDiskSpace.txt")

$nul = Open(1,"$ServerFile")

$server = ReadLine(1)

while $server <> "EndList"

 $WMI = GetObject("winmgmts:\\" + $server + "\root\cimv2")

 $HardDrives = $WMI.ExecQuery("Select * From Win32_LogicalDisk Where DriveType=3")

 For Each $Drive in $HardDrives
	? "     Drive Letter: " $Drive.Name
	? "      Drive Space: " $Drive.Size
	? " Drive Free Space: " $Drive.FreeSpace
	?
 Next

 $server = ReadLine(1)

Loop

 Break on ;this cmd is ok
$ServerFile = "C:\admin\Servers.txt" ;this cmd is ok
;-------Information
$ = RedirectOutput ("C:\admin\AvailDiskSpace.txt") ; file created in directory
;$nul = Open(1,"$ServerFile") ;nothing happened here
;$server = ReadLine(1) ;nothing happened here
;While $server <> "EndList" ; script froze here - had to Ctrl+C to escape
; $WMI = GetObject("winmgmts:\\" + $server + "\root\cimv2") @Error ; returned all zeros
 $WMI = GetObject("winmgmts:\\" + "dc-svr-01" + "\root\cimv2") @Error ; returned all zeros
 $HardDrives = $WMI.ExecQuery("Select * From Win32_LogicalDisk Where DriveType=3") ; returned all zeros
 For Each $Drive in $HardDrives ;returned all zeros
	? "     Drive Letter: " $Drive.Name
	? "      Drive Space: " $Drive.Size
	? " Drive Free Space: " $Drive.FreeSpace ;looping on the first server in the list
	?
 Next
;$server = ReadLine(1)
Exit 

Break on ;this cmd is ok



$ServerFile = "c:\admin\servers.txt" ;this cmd is ok



;-------Information



;$ = RedirectOutput ("C:\admin\AvailDiskSpace.txt") ; file created in directory



$nul = Open(1,$ServerFile) ;nothing happened here



$server = ReadLine(1) ;nothing happened here



While @ERROR = 0



 $WMI = GetObject("winmgmts:\\" + $server + "\root\cimv2")



 if $WMI



  $HardDrives = $WMI.ExecQuery("Select * From Win32_LogicalDisk Where DriveType=3") ; returned all zeros



  For Each $Drive in $HardDrives ;returned all zeros

	? "     Drive Letter: " $Drive.Name

	? "      Drive Space: " $Drive.Size

	? " Drive Free Space: " $Drive.FreeSpace ;looping on the first server in the list

	?

  Next



 Endif



 $server = ReadLine(1)



Loop



Exit 

Quote:

---

E:\>kix32 t

Drive Letter: C:
Drive Space: 15726702592
Drive Free Space: 5270061056

Drive Letter: E:
Drive Space: 24017813504
Drive Free Space: 11373670400

---

  
$WMI = GetObject("winmgmts:\\" + @WKSTA + "\root\cimv2")
$HardDrives = $WMI.ExecQuery("Select * From Win32_LogicalDisk Where DriveType=3")
For Each $Drive in $HardDrives

  
For Each $Disk In $DiskSet
         $co=$co+1
         $dname=$Disk.Name  
         $percentfree=Round(DISKSPACE($strComputer,$dname,5))         
         $percentused=100-$percentfree         
         $rest=$percentfree-5  
         html($strComputer,$dname,$percentused,$rest,$space)

  
Shell "%COMSPEC% /e:1024 /c c:\windows\netview.exe /NTS /BDC /PDC >c:\admin\kix2010_451\servers.txt"
If @error<>0
  ? "Netview is not found !"
  ?
  ? " You have to download netview at (http://www.optimumx.com/download/#NetView)"
  ? " and place it in this script directory."
  Quit
EndIf

$line=""
If Open(3, "c:\admin\kix2010_451\servers.txt") = 0
    $x = ReadLine(3)
    While @ERROR = 0
      If $x<>""
        $pos=InStr($x," ")
        $xf=Left($x,$pos-1)
        If InStr($x,"\\")<>0
        	$xf=Right($xf,Len($xf)-2)
          $line=$line+"~~"+$xf
        EndIf
      EndIf
      $x = ReadLine(3)
    Loop
    $=Close (3)
    
EndIf
$servarray=Split($line,"~~")
debhtml()
For Each $strComputer in $servarray
   If $strComputer<>""     
     ? "In progress for "+$strComputer+" ..."      
     $objWMIService = GetObject("winmgmts:\\"+$strComputer+"\root\cimv2")
     If @ERROR=0     	
       breakl()      
       $DiskSet = $objWMIService.ExecQuery("select * from Win32_LogicalDisk where DriveType=3")
       $co=0
       For Each $Disk In $DiskSet
         $co=$co+1
         $dname=$Disk.Name  
         $percentfree=Round(DISKSPACE($strComputer,$dname,5))         
         $percentused=100-$percentfree         
         $rest=$percentfree-5  
         html($strComputer,$dname,$percentused,$rest,$space)

         $percentfree=Round(DISKSPACE($strComputer,$dname,5))         

DISKSPACE($strComputer,$dname,5)

  

Shell "%COMSPEC% /e:1024 /c c:\windows\netview.exe /NTS /BDC /PDC >c:\admin\kix2010_451\servers.txt"
If @error<>0
  ? "Netview is not found !"
  ?
  ? " You have to download netview at (http://www.optimumx.com/download/#NetView)"
  ? " and place it in this script directory."
  Quit
EndIf

$line=""
If Open(3, "c:\admin\kix2010_451\servers.txt") = 0
    $x = ReadLine(3)
    While @ERROR = 0
      If $x<>""
        $pos=InStr($x," ")
        $xf=Left($x,$pos-1)
        If InStr($x,"\\")<>0
        	$xf=Right($xf,Len($xf)-2)
          $line=$line+"~~"+$xf
        EndIf
      EndIf
      $x = ReadLine(3)
    Loop
    $=Close (3)
    
EndIf
$servarray=Split($line,"~~")
debhtml()
For Each $strComputer in $servarray
   If $strComputer<>""     
     ? "In progress for "+$strComputer+" ..."      
     $objWMIService = GetObject("winmgmts:\\"+$strComputer+"\root\cimv2")
     If @ERROR=0     	
       breakl()      
       $DiskSet = $objWMIService.ExecQuery("select * from Win32_LogicalDisk where DriveType=3")
       $co=0
       For Each $Disk In $DiskSet
         $co=$co+1
         $dname=$Disk.Name  
         $percentfree=Round(DISKSPACE($strComputer,$dname,5))         
         $percentused=100-$percentfree         
         $rest=$percentfree-5
         $space=GetDiskSpace($DiskSet)
         html($strComputer,$dname,$percentused,$rest,$space)
       Next
       ftabl()
     Else
       ? $strcomputer+" WMI not installed."
       breakl()
       offline($strcomputer)
       ftabl()
     EndIf  
    
   EndIf
Next

$space=GetDiskSpace($DiskSet)

  
;===============================================================================================
;
; DEPENDENCIES: WMI on servers, netview->(http://www.optimumx.com/download/#NetView)
;
;===============================================================================================
Break on


Shell "%COMSPEC% /e:1024 /c c:\windows\netview.exe /NTS /BDC /PDC >c:\admin\kix2010_451\servers.txt"
If @error<>0
  ? "Netview is not found !"
  ?
  ? " You have to download netview at (http://www.optimumx.com/download/#NetView)"
  ? " and place it in this script directory."
  Quit
EndIf

$line=""
If Open(3, "c:\admin\kix2010_451\servers.txt") = 0
    $x = ReadLine(3)
    While @ERROR = 0
      If $x<>""
        $pos=InStr($x," ")
        $xf=Left($x,$pos-1)
        If InStr($x,"\\")<>0
        	$xf=Right($xf,Len($xf)-2)
          $line=$line+"~~"+$xf
        EndIf
      EndIf
      $x = ReadLine(3)
    Loop
    $=Close (3)
    
EndIf
$servarray=Split($line,"~~")
debhtml()
For Each $strComputer in $servarray
   If $strComputer<>""     
     ? "In progress for "+$strComputer+" ..."      
     $objWMIService = GetObject("winmgmts:\\"+$strComputer+"\root\cimv2")
     If @ERROR=0     	
       breakl()      
       $DiskSet = $objWMIService.ExecQuery("select * from Win32_LogicalDisk where DriveType=3")
       $co=0
       For Each $Disk In $DiskSet
         $co=$co+1
         $dname=$Disk.Name  
         $percentfree=Round(DISKSPACE($strComputer,$dname,5))         
         $percentused=100-$percentfree         
         $rest=$percentfree-5
	    $free-GetFreeSpace($WS,$Drive)
         html($strComputer,$dname,$percentused,$rest,$free)
       Next
       ftabl()
     Else
       ? $strcomputer+" WMI not installed."
       breakl()
       offline($strcomputer)
       ftabl()
     EndIf  
    
   EndIf
Next
 
finhtml()

$IE = CreateObject("InternetExplorer.Application")
$IE.Navigate(@SCRIPTDIR+"\resserv.html")
$IE.Visible = 1

 
;*************************************************
Function debhtml()

Del ".\resserv.html"
$=Open( 3 , ".\resserv.html" , 5 )
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  "
"+@CRLF)
$x = WriteLine( 3 ,  "
Disk used for servers on domain "+@DOMAIN+"
"+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  "Unfortunately the non Windows servers could not be query
"+@CRLF)
$x = WriteLine( 3 ,  "and report the line 'No WMI or server offline' :(

"+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$=Close (3)

EndFunction
;*************************************************
Function html($server,$drive,$percentfree,$rest,$free)

$=Open( 3 , ".\resserv.html" , 5 )	
$x = WriteLine( 3 ,  "
Server
Used
 
Avail-Space
"+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ''+@CRLF)
$x = WriteLine( 3 ,  ''+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ''+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$=Close (3)

EndFunction
;*************************************************
Function offline($server)

$=Open( 3 , ".\resserv.html" , 5 )
$x = WriteLine( 3 ,  "
'+$server+':
Drive '+$drive+' '+$percentfree+' %
 
'+$free+'
"+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$=Close (3)

EndFunction
;*************************************************
Function breakl()
$=Open( 3 , ".\resserv.html" , 5 )	
$x = WriteLine( 3 ,  '
'+@CRLF)
$=Close (3)	
EndFunction
;*************************************************
Function ftabl()

$=Open( 3 , ".\resserv.html" , 5 )
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  "
"+$server+":
No WMI or server offline
"+@CRLF)
$=Close (3)

EndFunction
;*************************************************
Function finhtml()

$=Open( 3 , ".\resserv.html" , 5 )
$x = WriteLine( 3 ,  '
'+@CRLF)
$x = WriteLine( 3 ,  "
"+@CRLF)
$x = WriteLine( 3 ,  "
"+@CRLF)
$x = WriteLine( 3 ,  "Edition: " + @DATE + " - at " + @TIME+" by "+@FULLNAME+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$=Close (3)

EndFunction
;*************************************************
;FUNCTION      DiskSpace
;
;ACTION        returns the available disk space on a drive
;
;AUTHOR        Jens Meyer (sealeopard@usa.net)
;
;CONTRIBUTORS  NTDOC, Radimus, kholm
;
;VERSION       1.4 (added PetaByte, Percentage as unit sizes)
;              1.3 (shortened code, included UNCs as valid input)
;              1.2 (added optional drive and optional units)
;              1.1
;
;DATE CREATED  2001/12/18
;
;DATE MODIFIED 2003/07/06
;
;KIXTART       4.21
;
;SYNTAX        DISKSPACE([DRIVE, FORMAT])
;
;PARAMETERS    DRIVE
;              optional driveletter, directory, or UNC (defaults to system drive)
;
;              FORMAT
;              optional parameter indicating the units to be used when returning the
;              available disk space
;              0 = KB (KiloByte, default)
;              1 = MB (MegaByte)
;              2 = GB (GigaByte)
;              3 = TB (TeraByte)
;              4 = PB (PetaByte)
;              5 = %  (percentage total diskspace, does not support UNCs)
;
;RETURNS       available diskspace
;
;REMARKS       none
;
;DEPENDENCIES  WMI (only for FORMAT = 5)
;
;EXAMPLE       $rc=DISKSPACE()
;
;
Function diskspace($computer,optional $drive, optional $format)
  Dim $objWMIService, $sWQL, $colDrives, $objDrive
  If NOT $drive
    $drive='%WINDIR%'
  EndIf
  $format=Val($format)
  If $format<5
    $format=IIf($format=1,1024,IIf($format=2,1024.0*1024,IIf($format=3,1024.0*1024*1024,IIf($format=4,1024.0*1024*1024*1024,1))))
    $diskspace=CDbl(GetDiskSpace($drive))/$format
  Else
    $objWMIService=GetObject('winmgmts:{impersonationLevel=impersonate}!\\'+$computer+'\root\cimv2')
    $sWQL = "SELECT Size, FreeSpace FROM Win32_LogicalDisk WHERE Name='"+Left($drive,2)+"'"
    $colDrives=$objWMIService.ExecQuery($sWQL)
    For Each $objDrive in $colDrives
      $diskspace=CDbl($objDrive.FreeSpace)/CDbl($objDrive.Size)*100
    Next
  EndIf
  Exit @ERROR
EndFunction

;Function:
; GetFreeSpace()
;
;Author:
; Kholm
;
;Version:
; 1.0 (17th of september 2003)
;
;Action: Returns available space on diskdrives on remote workstations (where the server service is NOT started)
;
;Syntax GetFreeSpace($WS,$Drive)
;
;Parameters:
; - $WS = Name of remote workstation
; - $Drive = Driveletter for drive to be checked
;
;Returns: Free space on selected ws/drive
;
;Dependencies: WMI
;
;Remarks:
; OBSERVE: You should use the KiXtart function: GetDiskSpace('\\' + $Computer + '\' + $Drive + '$$')
; If the server service is startet on the workstation you want to check,
;
;Example:
; $Free = GetFreeSpace('WS02','C')
; 'Free space on drive C: on workstation WS02 is: ' + $Free

Function GetFreeSpace($Computer,$Drive)
   Dim $oComputer,$cItems,$oItem
   $oComputer = GetObject("winmgmts:\\" + $Computer + "\root\cimv2")
   $cItems = $oComputer.ExecQuery("Select * from Win32_LogicalDisk where DeviceID='$Drive:'")
   For Each $oItem In $cItems
      $GetFreeSpace = 0.0009765625 * $oItem.FreeSpace
   Next
EndFunction

 
Function GetFreeSpace($Computer,$Drive)
   Dim $oComputer,$cItems,$oItem
   $oComputer = GetObject("winmgmts:\\" + $Computer + "\root\cimv2")
   $cItems = $oComputer.ExecQuery("Select * from Win32_LogicalDisk where DeviceID='" + $Drive + ":'")
   For Each $oItem In $cItems
      $GetFreeSpace = 0.0009765625 * $oItem.FreeSpace
   Next
EndFunction
 

Quote:

---

In progress for Server ...Select * from Win32_LogicalDisk where DeviceID=':'

---

  

Shell "%COMSPEC% /e:1024 /c c:\windows\netview.exe /NTS /BDC /PDC >c:\admin\kix2010_451\servers.txt"
If @error<>0
  ? "Netview is not found !"
  ?
  ? " You have to download netview at (http://www.optimumx.com/download/#NetView)"
  ? " and place it in this script directory."
  Quit
EndIf

$line=""
If Open(3, "c:\admin\kix2010_451\servers.txt") = 0
    $x = ReadLine(3)
    While @ERROR = 0
      If $x<>""
        $pos=InStr($x," ")
        $xf=Left($x,$pos-1)
        If InStr($x,"\\")<>0
        	$xf=Right($xf,Len($xf)-2)
          $line=$line+"~~"+$xf
        EndIf
      EndIf
      $x = ReadLine(3)
    Loop
    $=Close (3)
    
EndIf
$servarray=Split($line,"~~")
debhtml()
For Each $strComputer in $servarray
   If $strComputer<>""     
     ? "In progress for "+$strComputer+" ..."      
     $objWMIService = GetObject("winmgmts:\\"+$strComputer+"\root\cimv2")
     If @ERROR=0     	
       breakl()      
       $DiskSet = $objWMIService.ExecQuery("select * from Win32_LogicalDisk where DriveType=3")
       $co=0
       For Each $Disk In $DiskSet
         $co=$co+1
         $dname=$Disk.Name  
         $percentfree=Round(DISKSPACE($strComputer,$dname,5))         
         $percentused=100-$percentfree         
         $rest=$percentfree-5
	    $free-GetFreeSpace($WS,$Drive)
         html($strComputer,$dname,$percentused,$rest,$free)
       Next
       ftabl()
     Else
      ? $strcomputer+" WMI not installed."
       breakl()
       offline($strcomputer)
       ftabl()
     EndIf  
    
   EndIf
Next
 
finhtml()

$IE = CreateObject("InternetExplorer.Application")
$IE.Navigate(@SCRIPTDIR+"\resserv.html")
$IE.Visible = 1
;*************************************************
 
 Function debhtml()
  Dim $Open, $x, $Close
  If Exist(".\resserv.html")
    Del ".\resserv.html"
  EndIf
  $Open = Open(3,".\resserv.html",5)
  $x = ""+@CRLF
  $x = $x + ""+@CRLF
  $x = $x + ""+@CRLF
  $x = $x + ""+@CRLF
  $x = $x + ""+@CRLF
  $x = $x + "
"+@CRLF
  $x = $x + "
Disk used for servers on domain "+@DOMAIN+"
"+@CRLF
  $x = $x + ""+@CRLF
  $x = $x + "Unfortunately the non Windows servers could not be query
"+@CRLF
  $x = $x + "and report the line 'No WMI or server offline' : (

"+@CRLF
  $x = $x + ""+@CRLF
  $x = $x + ""+@CRLF
  $x = $x + ""+@CRLF
  $x = $x + ""+@CRLF
  $x = $x + ""+@CRLF
  $x = $x + ""+@CRLF
  $x = $x + ""+@CRLF
  $x = WriteLine(3,$x)
  $Close = Close(3)
EndFunction

;*************************************************

Function html($server,$drive,$percentfree,$rest,$free)

$=Open( 3 , ".\resserv.html" , 5 )	
$x = WriteLine( 3 ,  "
Server
Used
 
Avail-Space
"+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ''+@CRLF)
$x = WriteLine( 3 ,  ''+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ''+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$=Close (3)

EndFunction
;*************************************************
Function offline($server)

$=Open( 3 , ".\resserv.html" , 5 )
$x = WriteLine( 3 ,  "
'+$server+':
Drive '+$drive+' '+$percentfree+' %
 
'+$free+'
"+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$=Close (3)

EndFunction
;*************************************************
Function breakl()
$=Open( 3 , ".\resserv.html" , 5 )	
$x = WriteLine( 3 ,  '
'+@CRLF)
$=Close (3)	
EndFunction
;*************************************************
Function ftabl()

$=Open( 3 , ".\resserv.html" , 5 )
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  "
"+$server+":
No WMI or server offline
"+@CRLF)
$=Close (3)

EndFunction
;*************************************************
Function finhtml()

$=Open( 3 , ".\resserv.html" , 5 )
$x = WriteLine( 3 ,  '
'+@CRLF)
$x = WriteLine( 3 ,  "
"+@CRLF)
$x = WriteLine( 3 ,  "
"+@CRLF)
$x = WriteLine( 3 ,  "Edition: " + @DATE + " - at " + @TIME+" by "+@FULLNAME+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$x = WriteLine( 3 ,  ""+@CRLF)
$=Close (3)

EndFunction
;*************************************************
;FUNCTION      DiskSpace
;
;ACTION        returns the available disk space on a drive
;
;AUTHOR        Jens Meyer (sealeopard@usa.net)
;
;CONTRIBUTORS  NTDOC, Radimus, kholm
;
;VERSION       1.4 (added PetaByte, Percentage as unit sizes)
;              1.3 (shortened code, included UNCs as valid input)
;              1.2 (added optional drive and optional units)
;              1.1
;
;DATE CREATED  2001/12/18
;
;DATE MODIFIED 2003/07/06
;
;KIXTART       4.21
;
;SYNTAX        DISKSPACE([DRIVE, FORMAT])
;
;PARAMETERS    DRIVE
;              optional driveletter, directory, or UNC (defaults to system drive)
;
;              FORMAT
;              optional parameter indicating the units to be used when returning the
;              available disk space
;              0 = KB (KiloByte, default)
;              1 = MB (MegaByte)
;              2 = GB (GigaByte)
;              3 = TB (TeraByte)
;              4 = PB (PetaByte)
;              5 = %  (percentage total diskspace, does not support UNCs)
;
;RETURNS       available diskspace
;
;REMARKS       none
;
;DEPENDENCIES  WMI (only for FORMAT = 5)
;
;EXAMPLE       $rc=DISKSPACE()
;
;
Function diskspace($computer,optional $drive, optional $format)
  Dim $objWMIService, $sWQL, $colDrives, $objDrive
  If NOT $drive
    $drive='%WINDIR%'
  EndIf
  $format=Val($format)
  If $format<5
    $format=IIf($format=1,1024,IIf($format=2,1024.0*1024,IIf($format=3,1024.0*1024*1024,IIf($format=4,1024.0*1024*1024*1024,1))))
    $diskspace=CDbl(GetDiskSpace($drive))/$format
  Else
    $objWMIService=GetObject('winmgmts:{impersonationLevel=impersonate}!\\'+$computer+'\root\cimv2')
    $sWQL = "SELECT Size, FreeSpace FROM Win32_LogicalDisk WHERE Name='"+Left($drive,2)+"'"
    $colDrives=$objWMIService.ExecQuery($sWQL)
    For Each $objDrive in $colDrives
      $diskspace=CDbl($objDrive.FreeSpace)/CDbl($objDrive.Size)*100
    Next
  EndIf
  Exit @ERROR
EndFunction

;Function:
; GetFreeSpace()
;
;Author:
; Kholm
;
;Version:
; 1.0 (17th of september 2003)
;
;Action: Returns available space on diskdrives on remote workstations (where the server service is NOT started)
;
;Syntax GetFreeSpace($WS,$Drive)
;
;Parameters:
; - $WS = Name of remote workstation
; - $Drive = Driveletter for drive to be checked
;
;Returns: Free space on selected ws/drive
;
;Dependencies: WMI
;
;Remarks:
; OBSERVE: You should use the KiXtart function: GetDiskSpace('\\' + $Computer + '\' + $Drive + '$$')
; If the server service is startet on the workstation you want to check,
;
;Example:
; $Free = GetFreeSpace('WS02','C')
; 'Free space on drive C: on workstation WS02 is: ' + $Free

Function GetFreeSpace($Computer,$Drive)
   Dim $oComputer,$cItems,$oItem
   $oComputer = GetObject("winmgmts:\\" + $Computer + "\root\cimv2")
   $cItems = $oComputer.ExecQuery("Select * from Win32_LogicalDisk where DeviceID='" + $Drive + ":'")
   For Each $oItem In $cItems
      $GetFreeSpace = 0.0009765625 * $oItem.FreeSpace
   Next
EndFunction

;Function GetFreeSpace($Computer,$Drive)
;   Dim $oComputer,$cItems,$oItem
;   $oComputer = GetObject("winmgmts:\\" + $Computer + "\root\cimv2")
;   $cItems = $oComputer.ExecQuery("Select * from Win32_LogicalDisk where DeviceID='$Drive:'")
;   For Each $oItem In $cItems
;      $GetFreeSpace = 0.0009765625 * $oItem.FreeSpace
;   Next
;EndFunction

If Open(3, "c:\admin\kix2010_451\servers.txt") = 0
    $x = ReadLine(3)
    While @ERROR = 0
      If $x<>""
        $pos=InStr($x," ")
        $xf=Left($x,$pos-1)
        If InStr($x,"\\")<>0
        	$xf=Right($xf,Len($xf)-2)
          $line=$line+"~~"+$xf
        EndIf
      EndIf
      $x = ReadLine(3)
    Loop
    $=Close (3)
    
EndIf

$Servers = Split('server1,server2,server3,server4',',')
For Each $Server In $Servers
  If $Server
    $Server ?
  EndIf
Next

$strComputer = SubStr($strComputer,3,InStr($strComputer,' ')-3)

Quote:

---

Network View - version 1.20
 
Displays a list of all machines visible in the specified domain, based on role.
 
 
The syntax of this command is:
 
netview [/NTW] [/NTS] [/PDC] [/BDC] [/PRINT] [/RAS] [/SQL] [/TIME] [/TS]
[/9x] [/HEX:0xXXXXXXXX] [/DOMAIN:domain] [/T] [/TABS]

Multiple switches can be specified, separate each with a space.
 
/NTW will include NT/2000/XP workstations.
/NTS will include NT/2000/.NET servers.
/PDC will include NT/2000/.NET primary domain controllers.
/BDC will include NT backup domain controllers.
/PRINT will include Print queue servers.
/RAS will include Remote Access Servers.
/SQL will include Microsoft SQL Servers.
/TIME will include all Time sources.
/TS will include all Terminal Servers.
/9x will include Windows 95/98/ME systems. (Only if sharing has been enabled.)
/HEX: allows you to specify your own bit mask. Use /HEX: /? for more details.
 
/DOMAIN: allows you to specify a different domain or workgroup.
/T also displays the primary machine type (Server, Workstation, PDC, etc.)
/B displays the output in bare format (useful when scripting)
/TABS separates columns with tabs instead of spaces (useful when importing)
 
 
An argument of /? or -? displays this syntax and always returns 1.
A successful completion will return 0.
 
 
Copyright 2000-2001 Marty List, OptimumX@usa.net
 

---

Quote:

---

The syntax of this command is:


NET VIEW
[\\computername [/CACHE] | /DOMAIN[:domainname]]
NET VIEW /NETWORK:NW [\\computername]
 

---