Pass html form data to shell_exec: php, cli, vbscript

by: cxrPosted on 2009-06-08 at 19:06:25ID: 24577764

This should get you started:

<?PHP
if($_POST) {
  $fqdn = $_POST['fqdn'];
  $user = $_POST['user'];
  $pass = $_POST['pass'];
  $hd = $_POST['hd'];
  $bios = $_POST['bios'];
  $mem = $_POST['mem'];
  $output = shell_exec("cscript /nologo inv.vbs /s:$fqdn  /u:$user /p:$pass /c:$hd,$bios,$mem");
  echo "<pre>$output</pre>";
}
?>
<form method="post">
fqdn/ip: <input type="text" name="fqdn" /><br />
user: <input type="text" name="user" /><br />
pass: <input type="text" name="pass" /><br />
hd: <input type="text" name="hd" /><br />
bios: <input type="text" name="bios" /><br />
mem: <input type="text" name="mem" /><br />
<input type="submit" value="Execute" />
</form>

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Select all Open in new window

by: richrumblePosted on 2009-06-08 at 19:22:47ID: 24577815

So far so good, I made a few changes, see below. I'd like to better handle the checkboxes. Leaving one unchecked, like bios, might lead to an extra comma in the /c: parameters
Notice: Undefined index: bios in C:\wamp\www\tools\index.php on line 7

might need an "if checked"
Also if nothing is checked, I'd like the /c: to be removed...
if nothing checked shell_exec("cscript /nologo c:\scripto\inv.vbs /s:$fqdn /u:$user /p:\"$pass\"
user, pass and fqdn (or IP) are required field can we check for that... after that this is all done!
-rich

<?PHP
if($_POST) {
  $fqdn = $_POST['fqdn'];
  $user = $_POST['user'];
  $pass = $_POST['pass'];
  $hd = $_POST['hd'];
  $bios = $_POST['bios'];
  $mem = $_POST['mem'];
  $output = shell_exec("cscript /nologo c:\scripto\inv.vbs /s:$fqdn  /u:$user /p:\"$pass\" /c:$hd,$bios,$mem");
  echo "<pre>$output</pre>";
}
?>
<form method="post">
fqdn/ip: <input type="text" name="fqdn" /><br />
user: <input type="text" name="user" /><br />
pass: <input type="text" name="pass" /><br />
hd:  <input type="checkbox" name="hd" value="hd" /><br />
bios: <input type="checkbox" name="bios" value="bios" /><br />
mem: <input type="checkbox" name="mem" value="mem" /><br />
<input type="submit" value="Execute" />
</form>

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Select all Open in new window

by: szewkamPosted on 2009-06-08 at 19:52:54ID: 24577921

it's all about handling every variable ;)
The code below should work :)

<?PHP
if($_POST) {
  $fqdn = $_POST['fqdn'];
  $user = $_POST['user'];
  $pass = $_POST['pass'];
  $hd = $_POST['hd'];
  $bios = $_POST['bios'];
  $mem = $_POST['mem'];
  if (empty($fqdn) || empty($user) || empty($pass)) {
    echo "Fields fqdn, user and pass are required";
    exit;
  }
  $par = array();
  if (isset($hd)) $par[] = "hd";
  if (isset($biod)) $par[] = "bios";
  if (isset($mem)) $par[] = "mem";
  $txt = empty($par) ? '' : '/c:'.implode(',', $par);
  $output = shell_exec("cscript /nologo c:\scripto\inv.vbs /s:$fqdn  /u:$user /p:\"$pass\" $txt");
  echo "<pre>$output</pre>";
}
?>
<form method="post">
fqdn/ip: <input type="text" name="fqdn" /><br />
user: <input type="text" name="user" /><br />
pass: <input type="text" name="pass" /><br />
hd:  <input type="checkbox" name="hd" value="hd" /><br />
bios: <input type="checkbox" name="bios" value="bios" /><br />
mem: <input type="checkbox" name="mem" value="mem" /><br />
<input type="submit" value="Execute" />
</form>

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Select all Open in new window

by: richrumblePosted on 2009-06-09 at 04:07:38ID: 24579860

Still getting the undefined variable for lines 6,7,8 depending on which checkboxes are unchecked. If all 3 are unchecked all 3 are undfined, if 2 are not checked those two are undefined...
Here is the script I'm calling if that helps.

-rich

' Usage:
'cscript /nologo inventory.vbs /s:ip.ip.ip.ip  /u:user_name /p:password /c:hd,pc,bios,vid,mem,nic,cpu,hwerr,os,av,fw
' ip's can be comma seperated... ip's could also be dns-name(s)
' if no parametes are given local host and all parameters are run...
Const WbemAuthenticationLevelPktPrivacy = 6
 
 
Function WMIDateStringToDate(dtmDate)
On Error Resume Next
    WScript.Echo dtm:
    WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
    Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
    & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2))
End Function
 
If Wscript.Arguments.Named("u") <> "" And Wscript.Arguments.Named("p") <> "" Then
    boolAlternate = True
    strUser = WScript.Arguments.Named("u")
    strPassword = WScript.Arguments.Named("p")
'    WScript.Echo "Using alternate credentials..."
Else
    boolAlternate = False
'    WScript.Echo "Using current credentials..."
End If
 
If WScript.Arguments.Named("s") = "" Then
    arrComputers = Array(".")
Else
    arrComputers = Split(WScript.Arguments.Named("s"), ",")
End If
 
For Each strComputer In arrComputers
 
    If boolAlternate = True Then
        strNamespace = "root\cimv2"
        Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
        Set objWMIService = objwbemLocator.ConnectServer(strComputer, strNamespace, strUser, strPassword)
        objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
    Else
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    End If
 
Wscript.Echo "<?xml version=" & Chr(34) & "1.0" & Chr(34) & "?>"
Wscript.Echo "<Inventory_1.0>"
    If Wscript.Arguments.Named("c") <> "" Then
        ' This splits the "/c:" argument by a comma, and goes through each
        arrSections = Split(Wscript.Arguments.Named("c"), ",")
        For Each strSection In arrSections
            Select Case Trim(LCase(strSection))
                Case "hd"
                    HD_Info
                Case "pc"
                    PC_Info
                Case "bios"
                    Bios_Info
                Case "vid"
                    Video_Info
                Case "mem"
                    Memory_Info
                Case "nic"
                    NIC_Info
                Case "cpu"
                    CPU_Info
                Case "hwerr"
                    HW_Err_Info
                Case "os"
                    OS_Info
                Case "av"
                    AV_Info
                Case "fw"
                    FW_Info
            End Select
        Next
    Else
'        This is where all tests are run
'        WScript.Echo "Running all sections..."
        HD_Info
        PC_Info
        Bios_Info
        Video_Info
        Memory_Info
        NIC_Info
        CPU_Info
        HW_Err_Info
        OS_Info
        AV_Info
        FW_Info
    End If
Next
'    Get Mapped Drive(s) Info
Sub HD_Info
On Error Resume Next
    Wscript.Echo "<Drives>"
    Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where Description = 'Network Connection'")
    For Each objItem in colItems
        WScript.Echo    "<MD>"
        WScript.Echo  "<VolumeName>" & objItem.VolumeName & "</VolumeName>"
        WScript.Echo  "<Description>" & objItem.Description & "</Description>"
        WScript.Echo  "<Name>" & objItem.Name & "</Name>"
        WScript.Echo  "<DeviceID>" & objItem.DeviceID & "</DeviceID>"
        WScript.Echo  "<Size>" & objItem.Size & "</Size>"
        Wscript.Echo  "<FreeSpace>" & objItem.FreeSpace & "</FreeSpace>"
        Wscript.Echo  "<FileSystem>" & objItem.FileSystem & "</FileSystem>"
        WScript.Echo    "<ProviderName>" & objItem.ProviderName & "</ProviderName>"
        Wscript.Echo  "<VolumeSerialNumber>" & objItem.VolumeSerialNumber & "</VolumeSerialNumber>"
        WScript.Echo    "</MD>"
    Next
'    Get Harddrive(s) Info
    Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where Description = 'Local Fixed Disk'")
    For Each objItem in colItems
        WScript.Echo    "<HD>"
        WScript.Echo  "<VolumeName>" & objItem.VolumeName & "</VolumeName>"
        WScript.Echo  "<Description>" & objItem.Description & "</Description>"
        WScript.Echo  "<Name>" & objItem.Name & "</Name>"
        WScript.Echo  "<DeviceID>" & objItem.DeviceID & "</DeviceID>"
        WScript.Echo  "<Size>" & objItem.Size & "</Size>"
        Wscript.Echo  "<FreeSpace>" & objItem.FreeSpace & "</FreeSpace>"
        Wscript.Echo  "<FileSystem>" & objItem.FileSystem & "</FileSystem>"
        Wscript.Echo  "<VolumeSerialNumber>" & objItem.VolumeSerialNumber & "</VolumeSerialNumber>"
        WScript.Echo    "</HD>"
    Next
    Wscript.Echo "</Drives>"
End Sub
'    Get Local Login Information
Sub PC_Info
On Error Resume Next
    Wscript.Echo "<PC_info>"
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
    For Each objItem in colItems
        Wscript.Echo  "<Caption>" & objItem.Caption & "</Caption>"
        Wscript.Echo  "<CurrentTimeZone>" & objItem.CurrentTimeZone & "</CurrentTimeZone>"
        Wscript.Echo  "<Description>" & objItem.Description & "</Description>"
        Wscript.Echo  "<DomainRole>" & objItem.DomainRole & "</DomainRole>"
        Wscript.Echo  "<Manufacturer>" & objItem.Manufacturer & "</Manufacturer>"
        Wscript.Echo  "<Model>" & objItem.Model & "</Model>"
        Wscript.Echo  "<Name>" & objItem.Name & "</Name>"
        Wscript.Echo  "<Domain>" & objItem.Domain & "</Domain>"
        Wscript.Echo  "<UserName>" & objItem.UserName & "</UserName>"
    Next
    Wscript.Echo "</PC_info>"
End Sub
 
'    Get Bios info, includng Asset Tag, Bios Revision and Manufacturer
Sub Bios_Info
On Error Resume Next
    Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
      Wscript.Echo "<BIOS>"
    For Each objItem in colItems
        Wscript.Echo  "<BuildNumber>" & objItem.BuildNumber & "</BuildNumber>"
        Wscript.Echo  "<ReleaseDate>" & WMIDateStringToDate(objItem.ReleaseDate) & "</ReleaseDate>"
        Wscript.Echo  "<Description>" & objItem.Description & "</Description>"
        Wscript.Echo  "<Manufacturer>" & objItem.Manufacturer & "</Manufacturer>"
        Wscript.Echo  "<Name>" & objItem.Name & "</Name>"
        Wscript.Echo  "<SerialNumber>" & objItem.SerialNumber & "</SerialNumber>"
        Wscript.Echo  "<Status>" & objItem.Status & "</Status>"
        Wscript.Echo  "<Version>" & objItem.Version & "</Version>"
    Next
   Wscript.Echo "</BIOS>"
End Sub
 
'    Get Screen Resolution, Refreash and Video Card info
Sub Video_Info
On Error Resume Next
    Wscript.Echo "<Video>"
    Set colItems = objWMIService.ExecQuery("Select * from Win32_DisplayControllerConfiguration",,48)
    For Each objItem in colItems
        Wscript.Echo "<Display>"
        Wscript.Echo  "<Description>" & objItem.Description & "</Description>"
        Wscript.Echo  "<Name>" & objItem.Name & "</Name>"
        Wscript.Echo  "<RefreshRate>" & objItem.RefreshRate & "</RefreshRate>"
        Wscript.Echo  "<VideoMode>" & objItem.VideoMode & "</VideoMode>"
        Wscript.Echo "</Display>"
    Next
    Wscript.Echo "</Video>"
End Sub
 
'    Get Memory Information
Sub Memory_Info
On Error Resume Next
    Wscript.Echo "<Memory>"
    Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalMemoryConfiguration",,48)
    For Each objItem in colItems
        Wscript.Echo  "<AvailableVirtualMemory>" & objItem.AvailableVirtualMemory & "</AvailableVirtualMemory>"
        Wscript.Echo  "<TotalPageFileSpace>" & objItem.TotalPageFileSpace & "</TotalPageFileSpace>"
        Wscript.Echo  "<TotalPhysicalMemory>" & objItem.TotalPhysicalMemory & "</TotalPhysicalMemory>"
        Wscript.Echo  "<TotalVirtualMemory>" & objItem.TotalVirtualMemory & "</TotalVirtualMemory>"
    Next
    Wscript.Echo "</Memory>"
End Sub
 
'    Get NIC information
Sub NIC_Info
On Error Resume Next
    Wscript.Echo "<Network>"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration " & "Where IPEnabled = True")
        For Each objItem in colItems
        Wscript.Echo "<NIC>"
        ' Beginning of Adapter specific information
        Wscript.Echo "<Caption>" & objItem.Caption & "</Caption>"
        If Not IsNull(objItem.DNSDomainSuffixSearchOrder) Then
          Dim strDefaultIPGateway : strDefaultIPGateway = Join(objItem.DefaultIPGateway, ",")
          Wscript.Echo "<DefaultIPGateway>" & strDefaultIPGateway & "</DefaultIPGateway>"
        End If
        Wscript.Echo "<Description>" & objItem.Description & "</Description>"
        If Not IsNull(objItem.DNSDomainSuffixSearchOrder) Then
          Dim strDNSDomainSuffixSearchOrder : strDNSDomainSuffixSearchOrder = Join(objItem.DNSDomainSuffixSearchOrder, ",")
          Wscript.Echo "<DNSSrchOrd>" & strDNSDomainSuffixSearchOrder & "</DNSSrchOrd>"
        End If
       
        Wscript.Echo "<DHCPEnabled>" & objItem.DHCPEnabled & "</DHCPEnabled>"
        Wscript.Echo "<MACAddress>" & objItem.MACAddress & "</MACAddress>"
        Wscript.Echo "<WINSPrimaryServer>" & objItem.WINSPrimaryServer & "</WINSPrimaryServer>"
        Wscript.Echo "<WINSSecondaryServer>" & objItem.WINSSecondaryServer & "</WINSSecondaryServer>"
        ' Beginning IP Address Listing
        Wscript.Echo "<IPAddresses>"
        Dim i
        For i = 0 To UBound (objItem.IPAddress)
          Wscript.Echo "<IPAddress>" & objItem.IPAddress(i) & "</IPAddress>"
          Wscript.Echo "<IPSubnet>" & objItem.IPSubnet(i) & "</IPSubnet>"
        Next
        ' Writing End of IP Address Listing
        Wscript.Echo "</IPAddresses>"
        Next
        ' Writing End of NIC
        Wscript.Echo "</NIC>"
End Sub
 
'    Get CPU Information
Sub CPU_Info
On Error Resume Next
    Wscript.Echo "<Processors>"
    Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)
    For Each objItem in colItems
        Wscript.Echo "<CPU>"
        Wscript.Echo  "<DeviceID>" & objItem.DeviceID & "</DeviceID>"
        Wscript.Echo  "<Caption>" & objItem.Caption & "</Caption>"
        Wscript.Echo  "<CurrentClockSpeed>" & objItem.CurrentClockSpeed & "</CurrentClockSpeed>"
        Wscript.Echo  "<Description>" & objItem.Description & "</Description>"
        Wscript.Echo  "<Family>" & objItem.Family & "</Family>"
        Wscript.Echo  "<LoadPercentage>" & objItem.LoadPercentage & "</LoadPercentage>"
        Wscript.Echo  "<Manufacturer>" & objItem.Manufacturer & "</Manufacturer>"
        Wscript.Echo  "<Name>" & objItem.Name & "</Name>"
        Wscript.Echo  "<Status>" & objItem.Status & "</Status>"
        Wscript.Echo  "<Version>" & objItem.Version & "</Version>"
        Wscript.Echo "</CPU>"
    Next
    Wscript.Echo "</Processors>"
End Sub
 
'    Show non-functioning Devices (yellow exclamation point, or red circle)
Sub HW_Err_Info
On Error Resume Next
    Wscript.Echo "<HW_Issues>"
    Set colItems = objWMIService.ExecQuery("Select * from Win32_PNPEntity Where ConfigManagerErrorCode <> 0")
    For Each objItem in colItems
        Wscript.Echo "<HW_ERR>"
        Wscript.Echo  "<Name>" & objItem.Name & "</Name>"
        Wscript.Echo  "<Description>" & objItem.Description & "</Description>"
        Wscript.Echo  "<DeviceID>" & objItem.DeviceID & "</DeviceID>"
        Wscript.Echo  "<Manufacturer>" & objItem.Manufacturer & "</Manufacturer>"
        Wscript.Echo "</HW_ERR>"
    Next
    Wscript.Echo "</HW_Issues>"
End Sub
 
Sub OS_Info
On Error Resume Next
Wscript.Echo "<OS_Info>"
            Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
            For Each objItem in colItems
      WScript.Echo "<CountryCode>" & objItem.CountryCode & "</CountryCode>"
      WScript.Echo "<CSDVersion>" & objItem.CSDVersion & "</CSDVersion>"
      WScript.Echo "<CSName>" & objItem.CSName & "</CSName>"
      WScript.Echo "<CurrentTimeZone>" & objItem.CurrentTimeZone & "</CurrentTimeZone>"
      WScript.Echo "<DEP_32BitApps>" & objItem.DataExecutionPrevention_32BitApplications & "</DEP_32BitApps>"
      WScript.Echo "<DEP_Available>" & objItem.DataExecutionPrevention_Available & "</DEP_Available>"
      WScript.Echo "<DEP_Drivers>" & objItem.DataExecutionPrevention_Drivers & "</DEP_Drivers>"
      WScript.Echo "<DEP_SupportPolicy>" & objItem.DataExecutionPrevention_SupportPolicy & "</DEP_SupportPolicy>"
      WScript.Echo "<FreePhysicalMemory>" & objItem.FreePhysicalMemory & "</FreePhysicalMemory>"
      WScript.Echo "<FreeSpaceInPagingFiles>" & objItem.FreeSpaceInPagingFiles & "</FreeSpaceInPagingFiles>"
      WScript.Echo "<FreeVirtualMemory>" & objItem.FreeVirtualMemory & "</FreeVirtualMemory>"
      WScript.Echo "<InstallDate>" & WMIDateStringToDate(objItem.InstallDate) & "</InstallDate>"
      WScript.Echo "<LastBootUpTime>" & WMIDateStringToDate(objItem.LastBootUpTime) & "</LastBootUpTime>"
      WScript.Echo "<LocalDateTime>" & WMIDateStringToDate(objItem.LocalDateTime) & "</LocalDateTime>"
      WScript.Echo "<Locale>" & objItem.Locale & "</Locale>"
      WScript.Echo "<NumberOfProcesses>" & objItem.NumberOfProcesses & "</NumberOfProcesses>"
      WScript.Echo "<NumberOfUsers>" & objItem.NumberOfUsers & "</NumberOfUsers>"
      WScript.Echo "<Organization>" & objItem.Organization & "</Organization>"
      WScript.Echo "<OSLanguage>" & objItem.OSLanguage & "</OSLanguage>"
      WScript.Echo "<OSProductSuite>" & objItem.OSProductSuite & "</OSProductSuite>"
      WScript.Echo "<OSType>" & objItem.OSType & "</OSType>"
      WScript.Echo "<ProductType>" & objItem.ProductType & "</ProductType>"
      WScript.Echo "<RegisteredUser>" & objItem.RegisteredUser & "</RegisteredUser>"
      WScript.Echo "<SerialNumber>" & objItem.SerialNumber & "</SerialNumber>"
      WScript.Echo "<ServicePackMajorVersion>" & objItem.ServicePackMajorVersion & "</ServicePackMajorVersion>"
      WScript.Echo "<ServicePackMinorVersion>" & objItem.ServicePackMinorVersion & "</ServicePackMinorVersion>"
      WScript.Echo "<Status>" & objItem.Status & "</Status>"
      WScript.Echo "<TotalSwapSpaceSize>" & objItem.TotalSwapSpaceSize & "</TotalSwapSpaceSize>"
      WScript.Echo "<TotalVirtualMemorySize>" & objItem.TotalVirtualMemorySize & "</TotalVirtualMemorySize>"
      WScript.Echo "<TotalVisibleMemorySize>" & objItem.TotalVisibleMemorySize & "</TotalVisibleMemorySize>"
      WScript.Echo "<Version>" & objItem.Version & "</Version>"
Next
Wscript.Echo "</OS_Info>"
End Sub
 
Sub AV_Info
On Error Resume Next
Wscript.Echo "<AV_Info>"
Set oWMIAV = GetObject ("winmgmts:\\" & strComputer & "\root\SecurityCenter")
Set colItems = oWMIAV.ExecQuery("Select * from AntiVirusProduct",,48)
 
If Err = 0 Then
   For Each objAVProduct In colItems
     WScript.Echo "<CompanyName>" & objAVProduct.companyName & "</CompanyName>"
     WScript.Echo "<DisplayName>" & objAVProduct.displayName & "</DisplayName>"
     WScript.Echo "<OAUIMd5Hash>" & objAVProduct.enableOnAccessUIMd5Hash & "</OAUIMd5Hash>"
     WScript.Echo "<OAUIParameters>" & objAVProduct.enableOnAccessUIParameters & "</OAUIParameters>"
     WScript.Echo "<InstanceGuid>" & objAVProduct.instanceGuid & "</InstanceGuid>"
     WScript.Echo "<OASEnabled>" & objAVProduct.onAccessScanningEnabled & "</OASEnabled>"
     WScript.Echo "<PENOAUI>" & objAVProduct.pathToEnableOnAccessUI & "</PENOAUI>"
     WScript.Echo "<PUUI>" & objAVProduct.pathToUpdateUI & "</PUUI>"
     WScript.Echo "<Up2Date>" & objAVProduct.productUptoDate & "</Up2Date>"
     WScript.Echo "<UUIMd5Hash>" & objAVProduct.updateUIMd5Hash & "</UUIMd5Hash>"
     WScript.Echo "<UUIParameters>" & objAVProduct.updateUIParameters & "</UUIParameters>"
     WScript.Echo "<VersionNumber>" & objAVProduct.versionNumber & "</VersionNumber>"
   Next
    Else
      Err.Clear
      WScript.Echo "<Error>"
      WScript.Echo "<Message>Unable to connect to SecurityCenter class on " & strComputer & "</Message>"
      WScript.Echo "<ErrNumber>" & Err.Number & "</ErrNumber>"
      WScript.Echo "<ErrSource>" & Err.Source & "</ErrSource>"
      WScript.Echo "<ErrDescription>" & Err.Description & "</ErrDescription>"
      WScript.Echo "</Error>"
    End If
Wscript.Echo "</AV_Info>"
End Sub
 
Sub FW_Info
On Error Resume Next
Wscript.Echo "<FW_Info>"
Set oWMIFW = GetObject ("winmgmts:\\" & strComputer & "\root\SecurityCenter")
Set colItems = oWMIFW.ExecQuery("Select * from FirewallProduct",,48)
If Err = 0 Then
   For Each objFWProduct In colItems
     WScript.Echo "<CompanyName>" & objFWProduct.companyName & "</CompanyName>"
     WScript.Echo "<DisplayName>" & objFWProduct.displayName & "</DisplayName>"
     WScript.Echo "<EnableUIMd5Hash>" & objFWProduct.enableUIMd5Hash & "</EnableUIMd5Hash>"
     WScript.Echo "<EnableUIParameters>" & objFWProduct.enableUIParameters & "</EnableUIParameters>"
     WScript.Echo "<InstanceGuid>" & objFWProduct.instanceGuid & "</InstanceGuid>"
     WScript.Echo "<PathToEnableUI>" & objFWProduct.pathToEnableOnUI & "</PathToEnableUI>"
     WScript.Echo "<VersionNumber>" & objFWProduct.versionNumber & "</VersionNumber>"
   Next
    Else
      Err.Clear
      WScript.Echo "<Error>"
      WScript.Echo "<Message>Unable to connect to SecurityCenter class on " & strComputer & "</Message>"
      WScript.Echo "<ErrNumber>" & Err.Number & "</ErrNumber>"
      WScript.Echo "<ErrSource>" & Err.Source & "</ErrSource>"
      WScript.Echo "<ErrDescription>" & Err.Description & "</ErrDescription>"
      WScript.Echo "</Error>"
    End If
Wscript.Echo "</FW_Info>"
End Sub
 
    Wscript.Echo "</Inventory_1.0>"

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:

Select all Open in new window

by: cxrPosted on 2009-06-09 at 04:22:22ID: 24579951

You can remove lines 6,7,8 from the script, and replace lines 14-16 with this:

  if (isset($_POST['hd'])) $par[] = "hd";
  if (isset($_POST['biod'])) $par[] = "bios";
  if (isset($_POST['mem'])) $par[] = "mem";

1:
2:
3:

Select all Open in new window

by: richrumblePosted on 2009-06-09 at 05:17:09ID: 24580270

I think that will do it, looks good. I'm going to dress it up a bit and post the more finalized product.
-rich

<?PHP
if($_POST) {
  $fqdn = $_POST['fqdn'];
  $user = $_POST['user'];
  $pass = $_POST['pass'];
  if (empty($fqdn) || empty($user) || empty($pass)) {
    echo "Fields fqdn, user and pass are required";
    exit;
  }
  $par = array();
  if (isset($_POST['hd'])) $par[] = "hd";
  if (isset($_POST['bios'])) $par[] = "bios";
  if (isset($_POST['mem'])) $par[] = "mem";
  $txt = empty($par) ? '' : '/c:'.implode(',', $par);
  $output = shell_exec("cscript /nologo c:\scripto\inv.vbs /s:$fqdn  /u:$user /p:\"$pass\" $txt");
  echo "<pre>$output</pre>";
}
?>
<form method="post">
fqdn/ip: <input type="text" name="fqdn" /><br />
user: <input type="text" name="user" /><br />
pass: <input type="text" name="pass" /><br />
hd:  <input type="checkbox" name="hd" value="hd" /><br />
bios: <input type="checkbox" name="bios" value="bios" /><br />
mem: <input type="checkbox" name="mem" value="mem" /><br />
<input type="submit" value="Execute" />
</form>

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Select all Open in new window

Question

Pass html form data to shell_exec

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

php

cli

vbscript

PHP Scripting Language

PHP for Windows

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press