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 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340
|
'option Explicit
Dim g_lp
Dim g_prog
Dim g_rnd
Dim g_flog
Dim g_replace
Dim g_dbg
Dim shell, env, home, UDNSDOMAIN
Dim adsys
Dim oPrinter, strServer1, strServer2, StrServerBackup,nbprint
Dim ServerName, ShareName, DriverName
Dim sDomaineI, sDomaineU, sDomaineC
Dim oConnection,oCommand, oRecordSet, nbsrv
g_dbg = 0
g_prog = "RestorePrinters-add-printerAD"
Set shell = CreateObject("WScript.Shell")
set env = shell.Environment("PROCESS")
'Enregistrement DLL Prnadmin.dll
Shell.Run "regsvr32 /s Prnadmin.dll",1,True
'Recuperation du chemin pour les logs
home = env("HOMEDRIVE") & env("HOMEPATH")
If home = "" Then
home = "C:"
end If
'Création du fichier de log
g_flog = home & "\" & g_prog & ".log"
g_replace = False
Randomize()
g_rnd = CInt(Int((10000 * Rnd()) + 1))
'Debut du Log
msglog("Debut.")
'++++++++++++++++++++++++++++++++++++++++
'- Déclaration méthode -
'++++++++++++++++++++++++++++++++++++++++
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim sImpn(20,3)
' Test des Domaines NT
' On Error Resume Next
UDNSDOMAIN = WshShell.ExpandEnvironmentStrings ("%USERDNSDOMAIN%")
If Err <> 0 then
Retour = MsgBox("Erreur au lancement, ce programme ne peut s'exécuter sur un poste Pl@net V1 !" & Chr(13) & " Fin du programme.", vbOKOnly + vbCritical)
WScript.quit
End If
sDomaineI = ""
sDomaineU = ""
sDomaineC = ""
If LCase(UDNSDOMAIN) = "local" Then
sDomaineI = "OU=FilePrinters,OU=Servers,DC=Packaging"
sDomaineU = "OU=User-Accounts,DC=Packaging"
sDomaineC = "OU=WORKSTATIONS,DC=Packaging"
ElseIf LCase(UDNSDOMAIN) = "directory" Or LCase(UDNSDOMAIN) = "intranet" Then ' si production, le domaine est :
sDomaineI = "OU=FilePrinters,OU=Servers,DC=directory"
sDomaineU = "OU=User-Accounts,DC=directory"
sDomaineC = "OU=WORKSTATIONS,DC=directory"
End If
If sDomaineI = "" Or sDomaineU = "" Then
Retour = MsgBox("Domaine non reconnu ! Fin du programme.", vbOKOnly + vbCritical)
WScript.Quit
End If
Set oConnection = CreateObject("ADODB.Connection")
'connexion avec l'AD
oConnection.Open "Provider=ADsDSOObject;"
Set oCommand = CreateObject("ADODB.Command")
oCommand.ActiveConnection = oConnection
'Requete composant la commande du recordSet
oCommand.CommandText = _
"<LDAP://"&sDomaineI&">;(&(objectCategory=Computer));name,dNSHostName,description,location;subtree"
'execution de la requete
Set oRecordSet = oCommand.Execute
If Err <> 0 Then
MsgBox("Impossible de faire une requête AD, le programme ne peut s'exécuter !" & Chr(13) & "Erreur : " & Err.Number & Err.Description)
WScript.Quit
End If
While Not oRecordset.Eof ' recherche du nom du serveur (qui ne soit pas le serveur de sauvegarde)
nbsrv = nbsrv + 1
sImpn(nbsrv, 1) = oRecordSet.Fields("dNSHostName").Value
sImpn(nbsrv, 2) = oRecordSet.Fields("location").Value
obj = oRecordSet.Fields("description").Value
sImpn(nbsrv, 3) = obj(0)
If Err <> 0 Then
sImpn(nbsrv, 2) = InputBox("L'application manque d'information sur le serveur " & sImpn(nbsrv, 1) & " Entrer son site svp :", , "Site Principal")
sImpn(nbsrv, 3) = InputBox("L'application manque d'information sur le serveur " & sImpn(nbsrv, 1) & " Entrer son alias svp :", , "simpy20")
End if
oRecordSet.movenext
Wend
SrvSauve = ""
For i = 1 To nbsrv
If LCase(sImpn(i, 2)) = "site de sauvegarde" Then
SrvSauve = sImpn(i, 1)
End If
Next
If SrvSauve = "" Then
MsgBox("Impossible de trouver le serveur de référence pour les pilotes ! " & Chr(13) & "Utilisation du serveur " & sImpn(1, 1))
SrvSauve = sImpn(1, 1)
End If
'msgbox("Fin du script, " & nbsrv & " remontés, le serveur de sauvegarde est " & srvsauve)
'+++++++++++++++++++++++++++
'-DEBUT du script synhro -
'+++++++++++++++++++++++++++
Dim printsrv1(1000)
Dim printsrv2(1000)
'Boucle de traitement pour l'ensemble des imprimantes des serveurs d'impression AD
Dim objWMIService, objItem, colItems, strComputer, intPrinters
For i= 1 To nbsrv
'Verification des serveurs du site principal
If lcase(sImpn(i, 2))="site principal" Then
'MsgBox "test :" & sImpn(i, 1)
'Liste des imprimante sur le serveur principal
'msglog("enumeration des imprimantes du serveur :" & sImpn(i, 1))
'gestion du serveur 1
If lcase(sImpn(i, 1))="srv1" Then
'MsgBox "srv1"
strComputer ="srv1"
intPrinters = 1
'Pure WMI Section
Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")
Call Wait() ' Goto Sub Routine at the end
' On Error Resume Next
For Each objItem In colItems
'WScript.Echo objItem.name
' On recuperer que les imprimantes réseau
If objItem.PortName <>"LPT1:" Then
'impn(nbprint,1) = oPrinter.PrinterName
printsrv1(i) = objItem.name
WScript.Echo "srv1 :" & printsrv1(i)
'objDictionary2.Add objItem.ShareName,objItem.ShareName
'Wscript.Echo objDictionary2.Count
'Array.sort(printsrv1)
'wscript.echo" printer Name srv2 :" & printsrv2(j)
End If
intPrinters = intPrinters + 1
Next
End If
'gestion du serveur 2
If lcase(sImpn(i, 1))="srv2" Then
'MsgBox "srv2"
strComputer ="srv2"
intPrinters2 = 1
'Pure WMI Section
Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")
Call Wait() ' Goto Sub Routine at the end
' On Error Resume Next
For Each objItem In colItems
'WScript.Echo objItem.name
' On recuperer que les imprimantes réseau
If objItem.PortName <>"LPT1:" Then
printsrv2(i) = objItem.name
End If
intPrinters2 = intPrinters2 + 1
Next
End If
End If
Next
MsgBox "srv1 :" & intPrinters
MsgBox "srv2 :" & intPrinters2
'++++++++++++++++++++++++++++++++++++++
'Comparaison des 2 serveurs principaux+
'++++++++++++++++++++++++++++++++++++++
For Each key In printsrv1
WScript.Echo key
Next
c = 0
For Each item1 In printsrv1
found = False
For Each item2 In printsrv2
If item1 = item2 Then
found = True
Exit For
End If
Next
If found = False Then
ReDim Preserve array3(c)
array3(c) = item1
c = c + 1
End If
Next
For Each key In array3
WScript.Echo key
Next
' ------------------ Fin du programme-----------------------------------------------------------------------------------
' ------------------- Subs ---------------------------------------------------------------------------------
' ------------------------------------------------------------------------------------------------------------------------
' msglog()
'Création d'une log lors de l'éxecution du script
' ---------------------------------------------------------------------------
Sub msglog(msg)
Dim opof, pof
Set opof = WScript.CreateObject("Scripting.FileSystemObject")
Set pof = opof.OpenTextFile(g_flog, 8, True)
pof.Writeline Date() & "-" & Time() & ": [" & g_rnd & "]: " & g_prog & ": " & msg
pof.close
set opof = Nothing
set pof = Nothing
end Sub
sub Wait()
If strComputer = "." Then
strComputer = "Local Host"
else strComputer = strComputer
End If
WScript.Echo "Wait 2 mins for " & strComputer _
& " to enumerate printers"
End Sub
Public Function NCompArrays(ByVal array1, array2)
'walks through each item in array1 and checks if it exists in array2
'those which DO NOT match are stored into NCompArrays
Dim intNonMatching' as Integer
Dim Item1, Item2, i
Dim bolMatch' as Boolean
Dim strMatch' as String
intNonMatching = 0
If IsArray(array1) AND IsArray(array2) Then
' Count non matching items to define new array
For each Item1 in array1
bolMatch = 0
For each Item2 in array2
If UCase(Item1) = UCase(Item2) Then
bolMatch = 1
Exit For
End If
Next
If bolMatch = 0 Then
intNonMatching = intNonMatching + 1
End If
Next
msgbox intNonMatching
If intNonMatching > 0 Then
ReDim arrNotMatch(intNonMatching - 1)
For each Item1 in array1
bolMatch = 0
For Each Item2 in array2
If UCase(Item1) = UCase(Item2) Then
bolMatch = 1
Exit For
End If
Next
If bolMatch = 0 Then
For i = 0 to intNonMatching
If VarType(arrNotMatch(i)) = 0 Then
arrNotMatch(i) = Item1
MsgBox Item1
Exit For
End If
Next
End If
Next
Else
strMatch = "All items in array1 found in array2"
End If
Else
strMatch = "Input variable is not an array"
End If
If strMatch <> "" Then
NCompArrays = strMatch
Else
NCompArrays = arrNotMatch
End If
End Function |
Partager