Pytanie : biegać ten vbs pisać scenariusz jako miejscowy admin daleki komputer

Cześć,

I biegać ten pismo od mój komputer, ono wydawać się dobrze.  The komputer I mieć problem ten pismo dalej być komputer dokąd I być w the miejscowy admin grupa.  I znać the miejscowy admin pw te computers.

Is tam  sposób I móc ten vbs pisać scenariusz jako miejscowy admin daleki komputer od mój komputer?  I polubić the computers.txt kartoteka jako the SourceFile.  btw - The miejscowy admin mój komputer i the komputer I sprawdzać mieć różny pw's.

thank ty dla twój 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:
36:
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)
 
Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
Ustalony objSourceFile = objFSO.OpenTextFile (strSourceFile, ForReading)
Ustalony objDestFile = objFSO.CreateTextFile (strDestFile, Prawdziwy)
objDestFile.WriteLine """ Computername "", "" Usługa Etykietka "", "" Użytkownik Imię """
 
Robić Podczas Gdy Nie objSourceFile.AtEndOfStream
	strComputer = objSourceFile.ReadLine
	Jeżeli Świst (strComputer) Wtedy
		objDestFile.WriteLine """" & strComputer & """, """ & GetSerial (strComputer) & """, """ & GetUsername (strComputer) & """"
	Kończyć Jeżeli
Pętla
objDestFile.Close
 
msgbox "robić!"
 
Funkcja GetSerial (strComputer)
        Ustalony objWMIService = GetObject ("winmgmts: " _
        & "{impersonationLevel=impersonate}! \ \" & strComputer & "\ korzeń \ cimv2")
        'Set colSMBIOS = objWMIService.ExecQuery ("Wybiórka * od Win32_SystemEnclosure")
        Ustalony colSMBIOS = objWMIService.ExecQuery ("Wybiórka * od Win32_BIOS")
        
        'GetSerial = ""
        Dla ColSMBIOS objSMBIOS W colSMBIOS
			'GetSerial = objSMBIOS.SerialNumber
			GetSerial = objSMBIOS.SerialNumber
			Wyjście Dla
        Następnie
Końcówka Funkcja
 
Funkcja GetUsername (strComputer)
        Ustalony objWMIService = GetObject ("winmgmts: " _
        & "{impersonationLevel=impersonate}! \ \" & strComputer & "\ korzeń \ cimv2")
        Ustalony colComputer = objWMIService.ExecQuery _
        ("Wybrany Username od Win32_ComputerSystem")
        
        'GetSerial = ""
		Dla ColComputer objComputer W colComputer
			GetUsername = objComputer.Username
			Wyjście Dla
		Następnie
Końcówka Funkcja
 
Funkcja Świst (strComputer)
	Ciemnawy objPing, objStatus
	Ustalony objPing = GetObject ("winmgmts: {impersonationLevel=impersonate} "). _  
				ExecQuery ("WYBRANY Replysize OD Win32_PingStatus DOKĄD adres = "" & strComputer & "" ")  
 
	Świst = Fałszywy
	Dla ObjStatus objStatus w objPing  
		Jeśli nie IsNull (objStatus.ReplySize) Wtedy Świst = Prawdziwy
	Następnie  
Końcówka Funkcja

Odpowiedź : biegać ten vbs pisać scenariusz jako miejscowy admin daleki komputer

ty musieć niektóre modyfikacja, podstawowy, tworzyć jeden pismo the txt kartoteka, i dla podstawowy linia ono (podstawowy komputer) robić ono psexec (z the hasło parametr i więc dalej) z the wykonywać the drugi pismo.

Podstawowy, sum podstawowy.
1- Tworzyć pismo który czytać the txt kartoteka, i dla psexec linia wykonywać nakazowy (psexec)
2- Tworzyć pismo który biegać tworzyć ty chcieć na the komputer.

Biegać the pierwszy pismo, che wykonywać psexec dla każdy komputer ty chcieć, dostawać the info ty chcieć.

Tak daleko jak the wykonywać funkcja use '(1)
Tak daleko jak the oświadczenie na txt linia the txt use 2 '


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

'(1)

Funkcja RunLocalCMD (argument)
	
	cmd = "%comspec% /k" & argument
	Set obj2Shell = CreateObject ("WScript.Shell")
	obj2Shell.Run cmd
	Set obj2Shell = Nic
	
Końcówka Funkcja

2 ' 

RunLocalCMD ("\ \" & strComputer & "- u USERNAME - p HASŁO cscript SECONDSCRIPT.VBS")
Inne rozwiązania  
 
programming4us programming4us