administrer windows services fra et web interface
hejjeg er gået lidt i stå, med en opgave.
jeg prøver at lave et gratis web interface til styring af en windows server, lige som inspanel, som jeg købte men det kom aldrig til at virke ordentligt så nu vil jeg lave mit eget, jeg kender til vb fra asp sider, men er nu gået over til activex for at kunne styre lidt mere
Mit problem er at jeg har fundet nogle eks. på nettet men de er alle skrevet til brug i en form, og det kan jeg ikke bruge.
her er lidt af koden:
Function GetServicesInfo(arrInfo() As Variant) As Boolean
.. mere kode
.. mere kode
.. osv
,,her er det som jeg ikke kan få ud..
ReDim arrInfo(1 To numberOfServices, 0 To 3)
For ndx = 1 To numberOfServices
' move service name into buffer and then to the array
lstrcpy ByVal buffer, ByVal ServicesInfo(ndx).lpServiceName
arrInfo(ndx, 0) = Left$(buffer, InStr(buffer, vbNullChar) - 1)
' move service display name into buffer and then to the array
lstrcpy ByVal buffer, ByVal ServicesInfo(ndx).lpDisplayName
arrInfo(ndx, 1) = Left$(buffer, InStr(buffer, vbNullChar) - 1)
' move activation state and accepted commands into result array
arrInfo(ndx, 2) = ServicesInfo(ndx).ServiceStatus.dwCurrentState
arrInfo(ndx, 3) = ServicesInfo(ndx).ServiceStatus.dwControlsAccepted
Next
' return success
GetServicesInfo = True
mit problem er hvordan kan jeg få det ud i en asp side?
eks. er hentet her: www.devx.com/vb2themax/Tip/19044
den får 200 point, for at få løst det hurtigt, og fordi jeg gerne ønsker flere problemer løst indtil at min admin side køre som den skal. i enden vil den bilve lagt på nette som et open source project, så hvis der er en som ønsker at hjælpe med et udvikle nogle dll filer til dette project, så sig endeligt til, /Bimmer