Frage : dieses laufen lassen vbs script als lokaler admin des Ferncomputers

Hallo, haben

I diesen Index von meinem Computer, es scheint, gut zu arbeiten. laufen gelassen.  Die Computer, die ich Probleme habe, diesen Index zu erhalten, um an zu laufen, sind Computer, in denen ich nicht in der lokalen admin-Gruppe bin.  Ich weiß, dass die lokalen admin pw dieser computers.

Is dort, das eine Weise ich dieses laufen lassen kann vbs, als lokaler admin des Ferncomputers von meinem Computer script?  Ich möchte fortfahren, die computers.txt-Akte als das SourceFile zu benutzen.  BTW - Die lokalen admin meines Computers und der Computer, die ich überprüfe, haben verschiedenes pw's.

thank Sie für Ihr help 
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

Const strSourceFile = „computers.txt“
Const strDestFile = „output.csv“
Const ForReading = 1
 
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
objSourceFile einstellen = objFSO.OpenTextFile (strSourceFile, ForReading)
objDestFile einstellen = objFSO.CreateTextFile (strDestFile, zutreffend)
objDestFile.WriteLine """ Computerbezeichnung "", "" Service-Umbau "", "" Benutzername """
 
Tun während nicht objSourceFile.AtEndOfStream
	strComputer = objSourceFile.ReadLine
	Wenn Klingeln (strComputer) dann
		objDestFile.WriteLine """" u. strComputer u. """, """ u. GetSerial (strComputer) u. """, """ u. GetUsername (strComputer) u. """"
	Beenden wenn
Schleife
objDestFile.Close
 
msgbox „erfolgt!“
 
Funktion GetSerial (strComputer)
        objWMIService = GetObject einstellen („winmgmts: “ _
        u. „{impersonationLevel=impersonate}! \ \“ u. strComputer u. „\ Wurzel \ cimv2“)
        'colSMBIOS = objWMIService.ExecQuery einstellen („* von Win32_SystemEnclosure vorwählen“)
        colSMBIOS = objWMIService.ExecQuery einstellen („* von Win32_BIOS vorwählen“)
        
        'GetSerial = ""
        Für jedes objSMBIOS im colSMBIOS
			'GetSerial = objSMBIOS.SerialNumber
			GetSerial = objSMBIOS.SerialNumber
			Für herausnehmen
        Zunächst
Enden-Funktion
 
Funktion GetUsername (strComputer)
        objWMIService = GetObject einstellen („winmgmts: “ _
        u. „{impersonationLevel=impersonate}! \ \“ u. strComputer u. „\ Wurzel \ cimv2“)
        colComputer = objWMIService.ExecQuery _ einstellen
        („Auserwähltes username von Win32_ComputerSystem“)
        
        'GetSerial = ""
		Für jedes objComputer im colComputer
			GetUsername = objComputer.Username
			Für herausnehmen
		Zunächst
Enden-Funktion
 
Funktions-Klingeln (strComputer)
	Schwaches objPing, objStatus
	Gesetztes objPing = GetObject („winmgmts: {impersonationLevel=impersonate} "). _  
				ExecQuery („AUSERWÄHLTES Replysize VON Win32_PingStatus WO Adresse = „“ u. strComputer u. „“ ")  
 
	Klingeln = falsch
	Für jedes objStatus beim objPing  
		Wenn nicht IsNull (objStatus.ReplySize) dann Klingeln = ausrichten
	Zunächst  
Enden-Funktion

Antwort : dieses laufen lassen vbs script als lokaler admin des Ferncomputers

Sie müssen etwas Änderungen bilden verursachen im Allgemeinen einen Index, um die txt Akte zu lesen, und für jede Linie von ihr (jeder Computer) ihn psexec (mit den Kennwortparametern und so weiter) mit der Durchführung des zweiten Indexes durchführen lassen.

Im Allgemeinen aufsummieren.
1- Einen Index verursachen, der die txt Akte liest, und für jede Linie führt einen Befehl durch (psexec)
2- Einen diesen Index verursachen laufen lässt, was auch immer Sie auf den Computern wünschen.

Den ersten Index laufen lassen, der psexec für jeden Computer, den durchführt Sie wünschen und das Info erhält, Sie wünschen.

Insoweit der Durchführungsfunktionsgebrauch '1
Bis zu der pro jede Linie des txt Gebrauches 2 durchzuführen Aussage, '


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

'1

Funktion RunLocalCMD (Argument)
	
	cmd = „%comspec% /k“ u. Argument
	Einstellen obj2Shell = CreateObject („WScript.Shell“)
	obj2Shell.Run cmd
	Einstellen obj2Shell = nichts
	
Funktion beenden

2 ' 

RunLocalCMD („\ \“ u. strComputer u. „- u username - p-KENNWORT cscript SECONDSCRIPT.VBS“)
Weitere Lösungen  
 
programming4us programming4us