codicefacile

Programmazione per TUTTI…

Visual Basic – Script per impostare WORKGROUP al Client

Piccolo scriptino in Visual Basic che può essere utile in ogni momento specialmente quando bisogna cambiare il WorkGroup di molti Client….

Option Explicit

Const JOIN_WORKGROUP = 0

Dim strComputer, strWorkgroup, objComputer, ReturnValue
Dim objNetwork:        Set objNetwork = CreateObject(“WScript.NetWork”)
Dim wshShell:        Set wshShell = Createobject(“WScript.Shell”)

strComputer        = objNetwork.ComputerName
strWorkgroup    = “workgroup”

Set objComputer    = GetObject(“winmgmts:{impersonation­ Level=Impersonate}!\\” _
& strComputer & “\root\cimv2:Win32_ComputerSystem.  Name='” _
& strComputer & “‘”)

ReturnValue = objComputer.JoinDomainOrWorkGroup(  strWorkgroup, _
NULL, NULL, NULL, JOIN_WORKGROUP)

If (ReturnValue <> 0) Then
Wscript.Echo “Something went wrong”
Else
Wscript.Echo “Successfully joined ” & strWorkgroup
End If

Ciao Ciao

Annunci

Navigazione ad articolo singolo

Rispondi

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...

%d blogger hanno fatto clic su Mi Piace per questo: