Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: VB-Verweise einfügen
Autor: rasclaat
Datum: 10.03.05 09:28
Ich meine, dass es gar nicht deklariert ist. Dies ist der gesamte Quelltext. Private Sub Command1_Click() 'http://www.freevbcode.com/ShowCode.Asp?ID=4886 ' IMPORTANT !!!! Change these constants !!!! Const STR_SERVERS = "141.200.78.100 " ' Enter your servers here, separated by a space Const STR_NEWDNS1 = "192.168.1.1" Const STR_NEWDNS2 = "192.168.1.2" Const STR_NEWWINS1 = "192.168.1.3" Const STR_NEWWINS2 = "192.168.1.4" ' /////////////////////////////////////////////////////////////////////////////////////////////// Do cKeuze = MakeChoise("Choose: Report or Change (R/C)?") Loop Until cKeuze = "C" Or cKeuze = "R" wscript.Echo If (cKeuze = "C") Then Change (STR_SERVERS) Else Report (STR_SERVERS) End If wscript.Echo ("Check out http://www.activxperts.com for more samples and components") ' /////////////////////////////////////////////////////////////////////////////////////////////// End Sub ' /////////////////////////////////////////////////////////////////////////////////////////////// Sub Change(strParamServers) arrServers = Split(strParamServers, " ") For i = 0 To UBound(arrServers) ShowDnsWins arrServers(i) Do cKeuze = MakeChoise(" Change DNS/WINS and reboot (y/n)?") Loop Until cKeuze = "Y" Or cKeuze = "N" If (cKeuze = "Y") Then SetDnsWins arrServers(i) RebootServer (arrServers(i)) End If wscript.StdOut.Write (vbCrLf) Next End Sub ' /////////////////////////////////////////////////////////////////////////////////////////////// Sub Report(strParamServers) arrServers = Split(strParamServers, " ") For i = 0 To UBound(arrServers) ShowDnsWins arrServers(i) Next End Sub ' /////////////////////////////////////////////////////////////////////////////////////////////// Sub ShowDnsWins(strServer) strWinMgmt = "winmgmts:{impersonationLevel=impersonate}!//" & strServer & "" Set objNICs = GetObject(strWinMgmt).InstancesOf("Win32_NetworkAdapterConfiguration") wscript.StdOut.Write (strServer & ": " & vbCrLf) For Each objNIC In objNICs If objNIC.IPEnabled Then wscript.StdOut.Write (" " & objNIC.Description & ": " & vbCrLf & " ") n = 1 For Each strDns In objNIC.DNSServerSearchOrder wscript.StdOut.Write "DNS" & n & ":" & strDns & " " n = n + 1 Next wscript.StdOut.Write (vbCrLf) End If Next wscript.StdOut.Write (vbCrLf) End Sub ' /////////////////////////////////////////////////////////////////////////////////////////////// Sub SetDnsWins(strServer) strWinMgmt = "winmgmts:{impersonationLevel=impersonate}!//" & strServer & "" Set objNICs = GetObject(strWinMgmt).InstancesOf("Win32_NetworkAdapterConfiguration") wscript.StdOut.Write (" Set DNS for NIC: ") For Each objNIC In objNICs If objNIC.IPEnabled Then objNIC.SetWINSServer STR_NEWWINS1, STR_NEWWINS2 objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1, STR_NEWDNS2) wscript.StdOut.Write objNIC.Description & " " End If Next wscript.StdOut.Write (vbCrLf) End Sub ' /////////////////////////////////////////////////////////////////////////////////////////////// Sub RebootServer(strServer) Set OpSysSet = GetObject("winmgmts:{(RemoteShutdown)}//" & strServer & "/root/cimv2").ExecQuery("Select * from Win32_OperatingSystem where Primary=True") wscript.StdOut.Write (" Reboot: ") For Each OpSys In OpSysSet wscript.StdOut.Write OpSys.Name OpSys.Reboot() Next wscript.StdOut.Write (vbCrLf) End Sub ' /////////////////////////////////////////////////////////////////////////////////////////////// Function MakeChoise(strMesg) wscript.StdOut.Write (strMesg) ' Hier kommt die Meldung "Objekt erforderlich" wscript.StdIn.Read (0) strChoise = wscript.StdIn.ReadLine() MakeChoise = UCase(Left(strChoise, 1)) End Function

VB-Verweise einfügen	1.693	rasclaat	09.03.05 09:03
Re: VB-Verweise einfügen	1.253	Dieter	09.03.05 23:24
Re: VB-Verweise einfügen	1.293	rasclaat	10.03.05 09:28

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen