Block XP machines in domain

Question

Hello Friends,
In my Organization, they are planning to block all existing Windows XP machines in domain.
So that, no user can login on domain using XP machine. And if logged on using Local credential cannot access the network.
I thought to do the same by GPO to push a Scheduled Task which runs a Vbscript to disable all NIC's on machine.
Unfortunately, this vbscript is not running on Non English OS. It works only on English OS.
Please suggest.

Answer 1

Hi Jack,
Thanks!
But i am not using netsh command as it is not working on XP machines. I am using below vbscript:
'Initialization  Section
Option Explicit
Const ForAppending = 8
Dim objDictionary, objFSO, wshNetwork, scriptBaseName, scriptPath, scriptLogPath
On Error Resume Next
   Set objDictionary = NewDictionary
   Set objFSO        = CreateObject("Scripting.FileSystemObject")
   Set wshNetwork    = CreateObject("Wscript.Network")
   scriptBaseName    = objFSO.GetBaseName(Wscript.ScriptFullName)
   scriptPath        = objFSO.GetFile(Wscript.ScriptFullName).ParentFolder.Path
   scriptLogPath     = scriptPath & "\" & scriptBaseName
   If Err.Number <> 0 Then
      Wscript.Quit
   End If
On Error Goto 0
'Main Processing Section
On Error Resume Next
   ProcessScript
   If Err.Number <> 0 Then
      MsgBox "An unexpected error occurred!", vbCritical, scriptBaseName
      Wscript.Quit
   End If
   PromptScriptEnd
On Error Goto 0
'Name       : ProcessScript -> Primary Function that controls all other script processing.
'Parameters : None          ->
'Return     : None          ->
Function ProcessScript
   Dim hostName, connectionNames, connectionFolder, connectionVerb
   hostName           = wshNetwork.ComputerName
   connectionFolder   = "Connexions réseaus"
   'connectionsFolder = "Network and Dial-up Connections" (This value should be used for Windows 2000)
   connectionVerb    = "&désactiver"
   'connectionVerb     = "&Activer"
    PromptScriptStart
   If Not GetNetworkConnectionNames(hostName, connectionNames) Then
      Exit Function
   End If
   If Not ToggleNetworkConnections(connectionNames, connectionFolder, connectionVerb) Then
      Exit Function
   End If
End Function
'Name       : ProcessScript -> Primary Function that controls all other script processing.
'Parameters : None          ->
'Return     : None          ->
Function GetNetworkConnectionNames(hostName, connectionNames)
   Dim wmi, networkAdapters, networkAdapter, connectionsDict
   GetNetworkConnectionNames = False
   connectionNames           = ""
   On Error Resume Next
      Set connectionsDict    = NewDictionary
      Set wmi                = GetObject("winmgmts:\\" & hostName & "\root\cimv2")
      Set networkAdapters    = wmi.ExecQuery("Select * from Win32_NetworkAdapter",,48)
      If Err.Number <> 0 Then
         Exit Function
      End If
      For Each networkAdapter in networkAdapters
         If Not IsNull(networkAdapter.NetConnectionID) Then
            connectionsDict(connectionsDict.Count) = networkAdapter.NetConnectionID
         End If
      Next
   On Error Goto 0
   If Err.Number <> 0 Then
      Exit Function
   End If
   connectionNames           = connectionsDict.Items
   GetNetworkConnectionNames = True
End Function
'Name       : NewDictionary -> Creates a new dictionary object.      
'Parameters : None          ->      
'Return     : NewDictionary -> Returns a dictionary object.      
Function NewDictionary
   Dim dict      
   Set dict          = CreateObject("scripting.Dictionary")      
   dict.CompareMode  = vbTextCompare      
   Set NewDictionary = dict      
End Function
'Name       : DQ          -> Place double quotes around a string and replace double quotes   
'           :             -> within the string with pairs of double quotes.   
'Parameters : stringValue -> String value to be double quoted   
'Return     : DQ          -> Double quoted string.   
Function DQ (ByVal stringValue)   
   If stringValue <> "" Then  
      DQ = """" & Replace (stringValue, """", """""") & """"   
   Else  
      DQ = """"""  
   End If  
End Function
'Name       : ToggleNetworkConnections -> Toggles (enables/disables) all Connexions réseaus.
'Parameters : connectionNames          -> Array containing the names of the Connexions réseaus to enable\disable.
'           : connectionFolder         -> String containing the name of the network folder (varies dependant on OS).
'           : connectionType           -> String containing the verb to enable\disable all Connexions réseaus.
'Return     : ToggleNetworkConnections -> Returns a True if all connections were enabled\disabled othewise returns False.
Function ToggleNetworkConnections(connectionNames, connectionFolder, connectionVerb)
   Dim item, enabled, verb, connectionType, i
   Dim objNetworkConnections, objNetworkConnection
   ToggleNetworkConnections = False
   enabled                  = True
   'Ensure the connectionNames parameter is an Array.
   If Not IsArray(connectionNames) Then
      connectionNames = Array(connectionNames)
   End If
   'Bind to the Connexions réseaus folder
   For Each item in CreateObject("Shell.Application").Namespace(3).Items
      If StrComp(item.Name, "Connexions réseaus", vbTextCompare) = 0 Then
         On Error Resume Next
            Set objNetworkConnections = item.GetFolder
            If Err.Number <> 0 Then
               Exit Function
            End If
            Exit For
         On Error Goto 0
     End If
   Next
   'Ensure the Connexions réseaus folder is bound to an object.
   If Not IsObject(objNetworkConnections) Then
      Exit Function
   End If
   'Loop through the Array of Connexions réseau names and bind to each connection.
   For i = 0 To UBound(connectionNames)
      For Each item in objNetworkConnections.items
         If StrComp(item.Name, connectionNames(i), vbTextCompare) = 0 Then
            On Error Resume Next
               Set objNetworkConnection = item
               If Err.Number <> 0 Then
                  Exit Function
               End If
               Exit For
            On Error Goto 0
         End If
      Next
      'Ensure the Connexions réseau is bound to an object.
      If Not IsObject(objNetworkConnection) Then
         Exit Function
      End If
      'Ensure the Connexions réseau is bound to an object.
      For Each verb in objNetworkConnection.Verbs
         If verb.Name = connectionVerb Then
            On Error Resume Next
               Set connectionType = verb
               If Err.Number <> 0 Then
                  Exit Function
               End If
               enabled = False
            On Error Goto 0
         End If
      Next
      On Error Resume Next
         If enabled Then
            connectionType.DoIt
         Else
            connectionType.DoIt
         End If
         If Err.Number <> 0 Then
            Exit Function
         End If
      On Error Goto 0
      WScript.Sleep 2000
   Next
   ToggleNetworkConnections = True
End Function
'Name       : PromptScriptStart -> Prompt when script starts.   
'Parameters : None   
'Return     : None   
Function PromptScriptStart   
    'MsgBox "Now processing the " & DQ(Wscript.ScriptName) & " script.", vbInformation, scriptBaseName   
End Function  
'Name       : PromptScriptEnd -> Prompt when script has completed.   
'Parameters : None   
'Return     : None   
Function PromptScriptEnd   
   'MsgBox "The " & DQ(Wscript.ScriptName) & " script has completed successfully.", vbInformation, scriptBaseName   
End Function  
Yes, you are right in this case that i will have to use the System Locale, i tried making changes in this script according to the System Locale i.e. Used Connexions réseaus in place of Network Connections and &désactiver" "&Activer" in place of Disable
Enable. But still its not working.
Please have a look at the script, if you can help me in changing the script.