Sådan installeres software baseret på Netware brugernavn med VBScript

Indlæg af Hanne Mølgaard Plasc

 

1.

Åbn notesblok ved at klikke på Start og derefter gå til Alle programmer, Tilbehør og klikke på Notesblok.

2.

Kopier og indsæt følgende i Notesblok:

Dim fso
Dim oExec
Dim WshShell
Dim strData
Dim strUserName

Const HKLM = u0026 H80000002

strComputer = '.'
strKey = 'SOFTWARE \ Novell \ Location Profiler \ Services \ {1E6CEEA1-FB73-11CF-BD76-00001B27DA23} \ Standard \ '
strValue =' Brugernavn '

Indstil WshShell = CreateObject (' WScript.Shell ')
Indstil fso = CreateObject (' scripting.filesystemobject ')
Indstil oReg = GetObject ('winmgmts: {impersonationLevel = impersonate}! \\' u0026 amp; strcomputer u0026 \ '\ root \ default: StdRegProv')

'Går strengværdien og tildeler den til strData
oReg.GetStringValue HKLM, strKey, strValue, strData

'Konverter strData til en streng
strUserName = Cstr (strData)

'Installer software fra forskellige steder baseret på usernam e
Vælg Case strUserName
Case '.accountant.accounting.domain.com'
Indstil oExec = WshShell.Exec ('h: \ accounting \ setup.exe')
Case u0026 quot; accountant u0026 quot; oExec = WshShell.Exec ('i: \ administration \ setup.exe')
Case 'ceo'
Indstil oExec = WshShell.Exec ('i: \ administration \ setup.exe')
Case '.president.administration.domain.com'
Indstil oExec = WshShell.Exec ('j: \ administration \ setup.exe')
Case 'president'
Indstil oExec = WshShell.Exec ('j: \ administration \ setup.exe')
Case Else
MsgBox ('Ingen match fundet.')
Afslut Vælg

3.

Udskift brugernavne i Select Case-sætningen med brugerernes faktiske brugernavne.

4.

Udskift Indstil oExec = WshShell.Exec ('' ') med de faktiske kommandoer, du vil køre.

5.

Gem filen som UserBasedInstall.vbs ved at klikke på Fil, Gem som og skrive 'UserBasedInstall.vbs u0026 quot; uden citaterne i feltet 'Filnavn:'. Klik derefter på rullemenuen ved siden af ​​feltet Gem som type: Vælg 'Alle filer', og klik på Gem.

6.

Afslut fra Notesblok og dobbeltklik på UserBasedInstall.vbs for at køre de kommandoer, du har angivet, baseret på dit Novell Netware brugernavn.

Tips og advarsler

  • Dette er kun testet på computere med Windows XP SP3 med Novell Client for Windows 4.9.1 SP3
  • Hvis brugeren ikke er logget på Netware, vil scriptet køre kommandoerne baseret på den sidste Novell Netware-bruger for at logge ind.
  • I denne artikel vil jeg vise dig, hvordan du installerer software baseret på Novell Netware brugernavn. Denne VBScript er blevet testet på computere med Microsoft Windows XP SP3 med Novell Client for Windows 4.9.1 SP3. Denne VBScript kontrollerer værdien af ​​registreringsdatabasenøglen, som gemmer brugernavnet for den sidste bruger til at logge ind, så hvis ingen er logget ind, bruger den den sidste bruger, der logger ind (FORTALING: Kontrollér, at den rigtige bruger er logget ind). Lad os komme igang.