Vraag : stel dit vbsmanuscript als lokale admin van verre computer in werking

Hello, heeft

I dit manuscript van mijn computer in werking gesteld, schijnt het goed te werken.  De computers ik problemen heb die dit manuscript ertoe brengen om te lopen op zijn computers waar ik niet in de lokale admingroep ben.  Kan Ik ken daar lokale admin pw van deze computers.

Is een manier ik dit vbsmanuscript als lokale admin van verre computer van mijn computer in werking stellen?  Ik zou willen blijven het computers.txt dossier als SourceFile gebruiken.  btw - Lokale admin van mijn computer en de computers controleer ik verschillende pw's.

thank u voor uw help hebben
" codeBody " 
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:
strSourceFile Const = „computers.txt“ strDestFile Const = „output.csv“ Const ForReading = 1 Reeks objFSO = CreateObject („Scripting.FileSystemObject“) Vastgestelde objSourceFile = strSourceFile objFSO.OpenTextFile (, ForReading) Vastgestelde objDestFile = objFSO.CreateTextFile (strDestFile, Waar) objDestFile.WriteLine """ Computername "", de Markering "", de Naam """ van de Dienst "" van de Gebruiker "" Doe terwijl niet objSourceFile.AtEndOfStream strComputer = objSourceFile.ReadLine Als (strComputer) dan pingel objDestFile.WriteLine """" & strComputer & """, """ & GetSerial (strComputer) & """, """ & GetUsername (strComputer) & """" Eind als Lijn objDestFile.Close msgbox „gedaan!“ Functie GetSerial (strComputer) Vastgestelde objWMIService = GetObject („winmgmts: “ _ & „{impersonationLevel=impersonate}! \ \“ & strComputer & „\ wortel \ cimv2“) 'Plaats colSMBIOS = objWMIService.ExecQuery („selecteer * uit Win32_SystemEnclosure“) Plaats colSMBIOS = objWMIService.ExecQuery („selecteer * uit Win32_BIOS“) 'GetSerial = "" Voor Elke objSMBIOS in colSMBIOS 'GetSerial = objSMBIOS.SerialNumber GetSerial = objSMBIOS.SerialNumber Uitgang voor Daarna De Functie van het eind Functie GetUsername (strComputer) Vastgestelde objWMIService = GetObject („winmgmts: “ _ & „{impersonationLevel=impersonate}! \ \“ & strComputer & „\ wortel \ cimv2“) Reeks colComputer = objWMIService.ExecQuery _ („Uitgezochte Gebruikersbenaming van Win32_ComputerSystem“) 'GetSerial = "" Voor Elke objComputer in colComputer GetUsername = objComputer.Username Uitgang voor Daarna De Functie van het eind De functie pingelt (strComputer) Het schemerige objPing, objStatus Het vastgestelde objPing = GetObject („winmgmts: {impersonationLevel=impersonate}“). _ ExecQuery („UITGEZOCHTE Replysize VAN Win32_PingStatus WAAR adres = „“ & strComputer & „“ „) Pingel = Vals Voor Elke objStatus in het objPing Als niet IsNull (objStatus.ReplySize) dan = Waar pingelt Daarna De Functie van het eind

Antwoord : stel dit vbsmanuscript als lokale admin van verre computer in werking

u zult sommige wijzigingen moeten maken, fundamenteel, tot één manuscript leiden om het txtdossier te lezen, en voor elke lijn van het (elke computer) maak het psexec (met de wachtwoordparameters etc.) met uitvoeren uitvoeren van het tweede manuscript.

Fundamenteel, om samen te vatten.
1- Cre�ër een manuscript dat het txtdossier leest, en voor elke lijn voert een bevel (psexec) uit
2- Cre�ër een manuscript dat in werking stelt wat u op de computers wilt.

Stel het eerste manuscript in werking, dat psexec voor elke computer zal uitvoeren u wilt, krijgend info u wilt.

Voor zover functiegebruik '1 uitvoer
Zover als de verklaring per elke lijn van txtgebruik 2 ' uit te voeren


1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

'1

Functie RunLocalCMD (argument)
	
	cmd = „%comspec% /k“ & argument
	Vastgesteld obj2Shell = CreateObject („WScript.Shell“)
	obj2Shell.Run cmd
	Vastgesteld obj2Shell = niets
	
De Functie van het eind

2 ' 

RunLocalCMD („\ \“ & strComputer & „- uGEBRUIKERSBENAMING - pWACHTWOORD cscript SECONDSCRIPT.VBS“)
Andere oplossingen  
 
programming4us programming4us