Vraag : Probleem met VBScript die Serienummers over netwerk terugwint

Ik heb een VBScript die verondersteld is om IP van een tekstdossier te nemen en de machine te vragen en terug te keren het is de Naam van de Computer, Model, en de Markering van de Dienst/Serienummer in Excel Document.

However, keer ik een fout online 75 terug en hoop iemand kan helpen… Hieronder is de volledige code. Ook als u de code rond lijn 88-93 bekijkt zegt het bureau 2003/office 2007 omdat er een verandering in dossiernamen is het het zoals bewaart. Het bewaart het als .xls of verschillend iets. Ik denk niet dit niettemin een kwestie is omdat het. uit

I daarvóór waardeert om het even welke hulp! erroring! Hartelijk dank.
" 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:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
" notpretty " 
 ' tekstdossier te lezen van
 strReadFile = „C:\computers.txt“

 'blink te creëren dossier uit
 sXLS = „C:\service tags.xls“  

 Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
 Reeks objTS = (strReadFile) objFSO.OpenTextFile
 Reeks objShell = CreateObject („WScript.Shell“)

 Reeks objExcel = CreateObject („Excel.Application“)
	objExcel.Application.DisplayAlerts = Vals
	objExcel.Visible = Waar

 	objExcel.Workbooks.Add

	'bepaal de kolomtitels
    	objExcel.Cells (1.1). Waarde = de „Naam van de Computer“
    	objExcel.Cells (1.2). Waarde = „Model“
   	objExcel.Cells (1.3). Waarde = de „Markering van de Dienst“

      	xRow = 1
      	yColumn = 1

	'pas stijlen op rijen en kolommen toe
   	Doe tot yColumn = 4
       		objExcel.Cells (xRow, yColumn). Font.Bold = Waar
    		objExcel.Cells (xRow, yColumn). Font.Size = 11
    		objExcel.Cells (xRow, yColumn). Interior.ColorIndex = 11 
    		objExcel.Cells (xRow, yColumn). Interior.Pattern = 1
    		objExcel.Cells (xRow, yColumn). Font.ColorIndex = 2
    		objExcel.Cells (xRow, yColumn). Borders.LineStyle = 1
    		objExcel.Cells (xRow, yColumn) .WrapText = Waar
	yColumn = yColumn + 1
      	Lijn

	x = 2
	y = 1

  'beginlezing van het tekstdossier, tot het eind
  Doe tot objTS.AtEndOfStream
    strComputer = objTS.ReadLine

		'controleer als computername pingbale is, als niet toen skip aan volgende naam
		Als (IsPingable (strComputer) = Waar) toen
  		   Vastgestelde objWMIService = GetObject („winmgmts: “ _
			& „{impersonationLevel=impersonate}! \ \“ _
			& strComputer & „\ wortel \ cimv2“)

			Reeks colComputer = objWMIService.ExecQuery _
				(„SELECTEER * UIT Win32_ComputerSystemProduct“, „WQL“, 48)
			y1 = y

			Als Err.number=0 toen
  				Voor Elke objComputer in colComputer
      					objExcel.Cells (x, y1). Waarde = strComputer
      					y1 = gaat y1 + 1 'naar volgende kolom
      					objExcel.Cells (x, y1). Waarde = objComputer.Name
      					y1 = gaat y1 + 1 'naar volgende kolom
      					objExcel.Cells (x, y1). Waarde = objComputer.IdentifyingNumber
      					x = x + 1 'gaan naar de volgende Rij
				Daarna

			Anders
      					objExcel.Cells (x, y1). Waarde = strComputer
      					y1 = gaat y1 + 1 'naar volgende kolom
      					objExcel.Cells (x, y1). Waarde = „gevonden niet Model!“
      					y1 = gaat y1 + 1 'naar volgende kolom
      					objExcel.Cells (x, y1). Waarde = „gevonden niet Serie!“
      					x = x + 1 'gaan naar de volgende Rij
			Beëindig als
			Err.clear

		Anders
      			objExcel.Cells (x, y1). Waarde = strComputer
      			y1 = gaat y1 + 1 'naar volgende kolom
      			objExcel.Cells (x, y1). Waarde = „niet Pingable“
      			x = x + 1 'gaan naar de volgende Rij
			
  	    	Beëindig als
   Lijn

 objExcel.Columns („A: C“). Selecteer
 objExcel.Selection.HorizontalAlignment = centreren 3 'alle gegevens
 objExcel.Selection.Borders.LineStyle = past 1 'grenzen toe
 objExcel.Columns („A: AH“) .EntireColumn.AutoFit 'autofit alle kolommen

 appVerInt = verdeel (objExcel.Version, „. “) (0)
	Als appVerInt-Excel2007 >=0 toen
  	    objExcel.ActiveWorkbook.SaveAs (sXLS), 56 'bureau 2007
	Anders
  	    objExcel.ActiveWorkbook.SaveAs (sXLS), 43 'bureau 2003
	Eind als

 objExcel.Quit

 reeks objExcel = niets
 objTS.Close


msgbox „Gedaan!“
WScript.Quit


Functie IsPingable (ByVal strHost)
  Als Versiering (strHost) <> "" toen
     strCommand = „Ping.exe - n 3 - w 750“ & strHost
     Reeks objExecObject = objShell.Exec _
        („%comspec% /c titel“ & strHost _
        & chr (38) & strCommand)
     Doe terwijl niet objExecObject.StdOut.AtEndOfStream
        strText = objExecObject.StdOut.ReadLine ()
        Als Instr (strText, „TTL=“) > 0 _
          Dan IsPingable = Waar: De uitgang 
     Lijn
     Als IsPingable = Waar toen
        Met GetObject („winmgmts: wortel \ cimv2“)
           Voor Elke objProcess in .ExecQuery _
              („UITGEZOCHTE commandline VAN Win32_Process“ _
              & „WAAR Naam = „ping.exe““, 48)
              Als objProcess.com mandline = strCommand _
                Dan objProcess.Terminate (): Uitgang voor
           Daarna
        Eind met
     Eind als
  Eind als
  Als (niet IsPingable = Waar) toen IsPingable = Vals
De Functie van het eind

Antwoord : Probleem met VBScript die Serienummers over netwerk terugwint

Open de eigenschappen van de hartslag NIC op alle clusterknopen, ga naar de Geavanceerde montages van het protocol TCP/IP, en uncheck „Register deze verbinding in DNS“ in DNS tabel.
Terwijl u de hartslag NIC vormt, maak Netbios over TCP/IP in onbruikbaar WINT lusje, en losmaken „Cliënt die voor de Netwerken van Microsoft“ en „Dossier en Printer voor de Netwerken van Microsoft“ van dit NIC ook delen; de hartslag vereist slechts TCP/IP.
Andere oplossingen  
 
programming4us programming4us