Hallo,
Ik probeer sinds een dag of zo eens iets in html te maken. Het is vooral voor mijn eigen lering. Maar iets wat mij zo simpel lijkt en mischien ook wel is lukt mij niet. Ik heb een pulldown menutje gemaakt en ik wil de selectie in een variable hebben. De code is hier en daar niet helemaal goed maar dat staat even los van het probleem. Ik heb al diverse help files en sites bezocht maar dan krijg ik teveel info terug en omdat dan allemaal te gaan uitproberen ;-). Dus wie helpt mij aan de juiste code/uitleg.
Code:
<HTML>
<HEAD>
<SCRIPT LANGUAGE="VBSCRIPT">
sub cmdShow_OnClick
dim drive(10)
dim x = 0
dim strComputer
strComputer = frmForm1.Select1.options[frmForm1.Select1.selectedIndex].value
msgbox(strComputer)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48)
For Each objItem in colItems
drive(x) = objItem.Name & " " & FormatNumber(objItem.FreeSpace,0,,,True) & " Bytes"
x = x + 1
next
frmForm1.txtFreeDiskSpace.Value = drive(1)
end sub
</SCRIPT>
</HEAD>
<FORM NAME="frmForm1" ID=frmForm1>
<SELECT NAME="selComputer" ID=Select1>
<OPTION>LocalHost</OPTION>
<OPTION>Server 2</OPTION>
<OPTION>Server 3</OPTION>
</SELECT>
<INPUT TYPE="button" NAME="cmdShow" VALUE="Show" ID=Button1>
<INPUT TYPE="text" NAME="txtFreeDiskSpace" ID=Text2>
</FORM>
</HTML>
Ik probeer sinds een dag of zo eens iets in html te maken. Het is vooral voor mijn eigen lering. Maar iets wat mij zo simpel lijkt en mischien ook wel is lukt mij niet. Ik heb een pulldown menutje gemaakt en ik wil de selectie in een variable hebben. De code is hier en daar niet helemaal goed maar dat staat even los van het probleem. Ik heb al diverse help files en sites bezocht maar dan krijg ik teveel info terug en omdat dan allemaal te gaan uitproberen ;-). Dus wie helpt mij aan de juiste code/uitleg.
Code:
<HTML>
<HEAD>
<SCRIPT LANGUAGE="VBSCRIPT">
sub cmdShow_OnClick
dim drive(10)
dim x = 0
dim strComputer
strComputer = frmForm1.Select1.options[frmForm1.Select1.selectedIndex].value
msgbox(strComputer)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48)
For Each objItem in colItems
drive(x) = objItem.Name & " " & FormatNumber(objItem.FreeSpace,0,,,True) & " Bytes"
x = x + 1
next
frmForm1.txtFreeDiskSpace.Value = drive(1)
end sub
</SCRIPT>
</HEAD>
<FORM NAME="frmForm1" ID=frmForm1>
<SELECT NAME="selComputer" ID=Select1>
<OPTION>LocalHost</OPTION>
<OPTION>Server 2</OPTION>
<OPTION>Server 3</OPTION>
</SELECT>
<INPUT TYPE="button" NAME="cmdShow" VALUE="Show" ID=Button1>
<INPUT TYPE="text" NAME="txtFreeDiskSpace" ID=Text2>
</FORM>
</HTML>