Jag har ett bekymmer. Skall sammanställa följande uppgifter:

- Partitionsstorlek på tre diskar per server
- Ledigt diskutrymme på samma partitioner
- Storleken på två specifika filer på en av partitionerna

Detta skall kollas av en ASP-sida på en Intern webbserver (IIS4).
Har någon något bra förslag på hur koden skulle kunna se ut för att åstadkomma detta utan en massa komponentinstallationer om det inte är alldeles nödvändigt?

Tar tacksamt emot alla förslag.

Följande kod tar bara fram info om den specifika webservern.

<code>
<%
Dim objUserName, objUserDomain, oGroup, objUser, gList, WshShell, sMessage, sTitle
Dim objDomain, vDomain, vUserName

Dim objChangePwdTrue, objChangePwd, objUserProfile
Dim objPwdExpiresTrue, objFlags
Dim objAcctDisabled, intPwdExpired, objPwdExpiredTrue

' Set WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

' Pull Environment variables for domain/user
vdomain = WshShell.ExpandEnvironmentStrings("%USERDOMAIN%")
vUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%")

SysTest ' sub routine to check for Script Version/ADSI installed

GetInfo ' sub routing to get user information

on error resume Next

' Define user then retrieve and store groups in a list
For Each oGroup In objUser.Groups
If gList = "" Then
gList = oGroup.Name
Else
gList = gList & ", " & oGroup.Name
End If
Next

'check for expired password
intPwdExpired = objUser.Get("PasswordExpired")

If intPwdExpired = 1 Then
objPwdExpiredTrue = "Yes"
Else objPwdExpiredTrue = "No"
End If

'Check for Must Change Password Flag
objFlags = objUser.Get("UserFlags")

If (objFlags And &H00040) <> 0 Then
objChangePwdTrue = "No"
Else objChangePwdTrue = "Yes"
End If

' Is password set to NEVER expire?
objPwdExpires = objUser.Get("UserFlags")

If (objPwdExpires And &H10000) <> 0 Then
objPwdExpiresTrue = "Yes"
Else objPwdExpiresTrue = "No"
End If

' Is the account disabled?
If objUser.AccountDisabled = True Then
objAccountDisabled = "Yes"
Else objAccountDisabled = "No"
End If

'How many wrong logins?
objBadLogins = objUser.BadLoginCount

' How old is the current password?
oPwdAge = objUser.Get("PasswordAge")
objPwdAge = FormatNumber(((oPwdAge/60)/60)/24, 0)

' Set Profile path to tabs if blank
If objUserProfile = "" Then
objUserProfile= "" & vbTab
Else objUserProfile = objUserProfile
End If

' Set sMessage box variables to null
sMessage =""

'popup user information: each line broken up for better reading
sMessage = sMessage & "Domain: " & objDomain & vbTab & "User Name: " & objUserName & _
vbTab & "Full Name: " & objUser.FullName & vbTab & vbTab & "Description: " & _
objUser.Description & vbCrLf & vbCrLf

sMessage = sMessage & "Password Expired: " & objPwdExpiredTrue & vbTab & _
"User can change Pwd: " & objChangePwdTrue & vbTab & "Account Disabled: " & _
objAccountDisabled & vbTab & vbTab & "Account Locked Out: " & objUser.IsAccountLocked & _
vbTab & "Password Age: " & objPwdAge & vbCrLf & vbCrLf

sMessage = sMessage & "Bad Logins: " & objBadLogins & vbTab & vbTab & "Last logon: " & _
objUser.LastLogin & vbTab & "Password Never Expires: " & objPwdExpiresTrue & _
vbTab & "Password Minimum Length: " & objUser.PasswordMinimumLength & vbCrLf & vbCrLf

sMessage = sMessage & "User Profile Path: " & objUserProfile & "Home Directory: " & _
objUser.HomeDirectory & vbTab & "Login Script: " & objUser.LoginScript & vbCrLf & vbCrLf

sMessage = sMessage & "User Groups: " & vbCrLf & vbCrLf & gList & vbCrLf

' Display User Information!
WshShell.Popup sMessage,0,"User Information for: " & objUserName & " in " & objDomain

Sub GetInfo()

' Retrieve Domain from user
sMessage = "Please enter the domain to search." & vbCrLf & vbCrLf & _
"Default is: " & vDomain & vbCrLf & vbCrLf
sMessage = sMessage & "Hit Cancel or enter a blank to quit"
sTitle = "Domain to Search"

'get resource domain name, domain default
objDomain = InputBox(sMessage, sTitle, vDomain)

' Evaluate the user input.
If objDomain = "" Then ' Cancelled by the user
WScript.quit
End If

' Set sMessage box variables to null
ssMessage = ""
ssTitle = ""

on error resume Next

' Define username dialog box variables.
sMessage = "Please enter the USER Login ID" & vbCrLf & vbCrLf & _
"Default is: " & vUserName & vbCrLf & vbCrLf
sMessage = sMessage & "Hit Cancel or enter a blank to quit"
sTitle = "USER Login ID"

'get resource domain name, domain default via input box
objUserName = InputBox(sMessage, sTitle, vUserName)
' Evaluate the user input.
If objUserName = "" Then ' Cancelled by the user
WScript.quit
End If

' Display Just a minute!
sMessage = "This may take a few seconds. . ."
WshShell.Popup sMessage,2,"One moment please. . . "
sMessage = ""

'Attempt to bind to the user
Set objUser = GetObject("WinNT://"& objDomain &"/"& objUserName & "",user)

If Err Then
msgNoUser = "Error: Could not bind to the following user: " & vbCrLf _
& vbCrLf & "WinNT://" & objDomain &"/"& objUserName & vbCrLf & vbCrLf _
& "Please verify your domain and user name and try again"
WshShell.Popup msgNoUser,0,"Error retrieving information",vbCritical
GetInfo
Else
msgConnected = "Connected to user WinNT://" & objDomain &"/"& objUserName & vbCrLf
WshShell.Popup msgConnected,0,"Connected To " & objUserName & " in " & objDomain, vbInformation

End If

End Sub

Sub SysTest()
on error resume Next

' WSH version tested
Major = (ScriptEngineMinorVersion())
Minor = (ScriptEngineMinorVersion())/10
Ver = major + minor
'Need version 5.5
If err.number or ver = 5.6 then
message = "You must load Version 5.5 (or later) of Windows Script Host" & vbCrLf &_
vbCrLf & "Located at: \\servername\share\scr56en.exe"
WScript.Quit
End If

'Test for ADSI
err.clear
key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Active Setup\Installed Components\{E92B03AB-B707-11d2-9CBD-0000F87A369E}\version"
key2 = WshShell.RegRead (key)
if Err <> 0 then
message = message & "ADSI 5.2 must be installed on local workstation to continue" & vbCrLf &_
vbCrLf & "Located at: \\servername\share\adsi5.2.exe"
WshShell.Popup message,0,"Workstation Setup Error",vbCritical
WScript.Quit
End If

'Test whether the host is CScript.exe.
'G. Born code...

If IsBatch = "TRUE" Then
If (Not IsCScript()) Then
message = "You must set default host to cscript to run as a batch." &vbcrlf &_
"Use the command wscript //h:cscript" 'popup closes to avoid desktop hell
WshShell.Popup message,3,"Workstation Setup Error",vbCritical
WScript.Quit ' Terminate script.
End If
End if
End Sub


Function IsCScript()
' Check whether CScript.exe is the host.
If (InStr(UCase(WScript.FullName), "CSCRIPT") <> 0) Then
IsCScript = True
Else
IsCScript = False
End If
End Function
%>
</code>

Jag har kommer på 2 lösningar:


1. Installera IIS el. motsv på dem andra burkarna oxå. Lägg sedan samma ASP kod på dem burkarna och exekvera dem sedan från huvud-burken.

2. Gör en DLL som returnerar den data du vill ha vi en socket förfrågan. Hämta sedan detta via din huvud-burks asp kod.

Mappa upp datorerna via wsh och sedan e det bara att köra... dock e det där väldigt dumt att göra överhuvetaget då du måste köra asp sidan med accessrättigheter som e helt knasiga.

Hälsningar
Daniel