Het volgende script wil ik overgezet hebben naar (VB)? zodat een exe gemaakt kan worden die op command line hetzelfde doet als mijn vbs. Mijn collega en ik is het niet gelukt (wij zijn vb n00bs) google geeft geen goed antwoord, behalve iets waar ik me nog niet bij neer wil leggen.
Het moet toch mogelijk zijn een exe te maken zonder window, hetzij in .net c# c++ watever it may take to do the job. Wie heeft er de wijsheid in pacht voor deze uitdaging?
gebruik wel cscript bij het uitvoeren.
Het moet toch mogelijk zijn een exe te maken zonder window, hetzij in .net c# c++ watever it may take to do the job. Wie heeft er de wijsheid in pacht voor deze uitdaging?
code:
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
| Dim objDomain, objDisStatus, objStatus, strDomain, obArgs, LastLogoff
Sub ListUsers(strDomain)
Set objDomain = GetObject("WinNT://" & strDomain)
objDomain.Filter = Array("User")
For Each DomainItem In objDomain
If (DomainItem.AccountDisabled) Then
objDisStatus = "Disabled"
Else
objDisStatus = "Enabled"
End If
On Error Resume Next
objStatus = DomainItem.lastlogin
WScript.Echo DomainItem.Name & "," & objDisStatus & "," & Left(objStatus, 10)
Next
End Sub
Set obArgs = WScript.Arguments
cArgs = obArgs.Count
If cArgs <> 1 Then
WScript.Echo "Usage: cscript blaat.vbs DomainController"
Exit Sub
Else
ListUsers (obArgs.Item(0))
End If
End Sub |
gebruik wel cscript bij het uitvoeren.
[ Voor 8% gewijzigd door Verwijderd op 08-02-2005 14:42 ]