Didalam sebuah jaringan perkantoran, layanan berbagi data seperti ( Ms. Office Files, JPEG, Mp3, dan lainnya ) merupakan layanan yang sangat dibutuhkan oleh semua pengguna komputer. Layanan tersebut memberikan kemudahan bagi mereka untuk saling bertukar berkas tanpa harus melampirkan filenya sendiri kedalam sebuah email. Didalam jaringan Komputer berbasiskan Domain Kontroller, layanan berbagi data ( Share Folder ) sangatlah mudah dan memiliki keamanan yang cukup bagus. Kita bisa berbagi data untuk orang-orang tertentu, bahkan kita bisa berbagi data untuk group tertentu. Misalnya share data dibawah ini di set secara otomatis untuk seluruh komputer yang berada dibawah domain controller.
Folder Finance yang dishare di server hanya bisa diakses oleh staff / unit Finance.
Folder Marketing yang dishare di server hanya bisa diakses oleh staff / Unit Marketing
Folder HRD yang dishare di server hanya bisa diakses oleh staff / Unit HRD
Folder IT yang dishare di server hanya bisa diakses oleh staff / Unit IT
Atau bahkan user yang bersangkutan bisa mempunya Profile Folder deserver yang tidak bisa di akses oleh pengguna lain kecuali dirinya sendiri.
Bayangkan apabila ada salah satu dari pengguna yang ingin mengakses salah satu folder diatas tetapi secara komputernya sendiri bukan bagian dari Domain Kontroller atau komputer tersebut hanya sebagai bagian dari Workgroup, tentu otomatisasi tidak bisa dilakukan..
Eit, tidak ada yang tidak mungkin, setelah merenung dengan segelas kopi dan sebatang rook :-D, akhirnya saya mendapatkan ide untuk membuatkan script sendiri menggunakan VBscripts. Scriptnya dibawah ini, dan bisa di copy paste dan modifikasi sedikit apabila anda membutuhkannya.
Catatan % script dibawah ini disimpan kedalam C:\Temp dengan nama mapping.vbs. setelah itu cobalah untuk running scriptnya( Double Click ) dari komputer workgroup tersebut secara manual, apakah mappingan yang diinginkan sudah berjalan.
‘=======================================================================
‘ NAME : LogonScript.vbs for workgroup computer
‘ Created By : Robi A. Muhtar
‘ DATE : 30-September-2014
‘ COMMENT : Connecting workgroup computer to share drive in a domain
‘=======================================================================
ON ERROR RESUME NEXT
Dim WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, Path, objNetwork, objNetwork1
Set WSHShell = CreateObject(“WScript.Shell”)
Set WSHNetwork = CreateObject(“WScript.Network”)
‘Automatically find the domain name
Set objDomain = getObject(“LDAP://rootDse”)
DomainString = objDomain.Get(“dnsHostName”)
WinDir = WshShell.ExpandEnvironmentStrings(“%WinDir%”)
‘mencari dan mendapatkan user name
UserString = WSHNetwork.UserName
‘Bind to the user object to get user name and check for group memberships later
Set UserObj = GetObject(“WinNT://” & DomainString & “/” & UserString)
‘mendapatkan nama komputer yang ada di domain
strComputer = WSHNetwork.ComputerName
‘Mutusin dulu semua koneksi mappingan drive
Set clDrives = WshNetwork.EnumNetworkDrives
For i = 0 to clDrives.Count -1 Step 2
WSHNetwork.RemoveNetworkDrive clDrives.Item(i), True, True
Next
‘Map drives
‘Note the first command uses the user name as a variable to map to a user share.
‘=======================================================================
‘Mapping drive for Finance
‘=======================================================================
Set objNetwork = WScript.CreateObject(“WScript.Network”)
strLocalDrive = “F:”
strRemoteShare = “\\server-1\Finance$”
strPer = “TRUE”
strUsr = “robi”
strPas = “12345”
objNetwork.MapNetworkDrive strLocalDrive, strRemoteShare, strPer, strUsr, strPas
‘=======================================================================
‘=======================================================================
‘Mapping drive for Marketing
‘=======================================================================
Set objNetwork = WScript.CreateObject(“WScript.Network”)
strLocalDrive = “M:”
strRemoteShare = “\\server-2\marketing$”
strPer = “TRUE”
strUsr = “robi”
strPas = “12345”
objNetwork.MapNetworkDrive strLocalDrive, strRemoteShare, strPer, strUsr, strPas
‘=======================================================================
‘=======================================================================
‘Mapping drive for HR
‘=======================================================================
Set objNetwork = WScript.CreateObject(“WScript.Network”)
strLocalDrive = “H:”
strRemoteShare = “\\server-3\HR$”
strPer = “TRUE”
strUsr = “robi”
strPas = “12345”
objNetwork.MapNetworkDrive strLocalDrive, strRemoteShare, strPer, strUsr, strPas
‘=======================================================================
‘Cek keanggotaan grup dan membuat map drive
For Each GroupObj In UserObj.Groups
Select Case GroupObj.Name
‘Check for group memberships and take needed action
End Select
Next
‘=====================================
‘Sebelum nutup, bersihin proses yang ada di memory dan keluar
‘Clean Up Memory We Used
set UserObj = Nothing
set GroupObj = Nothing
set WSHNetwork = Nothing
set DomainString = Nothing
set WSHSHell = Nothing
Set WSHPrinters = Nothing
Set objNetwork = Nothing
Set objNetwork1 = Nothing
‘Quit the Script
wscript.quit
‘=====================================
Nah setelah hasil pengetesan secara manual sudah berjalan, maka langkah selanjutnya adalah membuat koneksi dari script ini otomatis berjalan dikomputernya workgroup tadi. Langkahnya adalah.
1. Masuk ke Start menu\Run\Regedit
2. HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
3. Buatlah string Value dengan nama mapping
4. Double Click mapping tersebut dan isikan string valuenya seperti ini “C:\Temp\Maping.vbs” Tekan OK
5. Tekan F5 Untuk refresh registry,
6. Restart komputer.
Apabila anda mengikuti langkah demi langkah secara urut, maka mappingan drive akan termuat secara otomatis, dengan catatan folder sharing ( Finance, Marketing, dan HR sudah termapping di server yang ada )
Selamat mencoba.
Tukang Nulis : R003! 4lf!4n W0eht4r [newrobix@gmailcom] ~ Jagad-internet
Penulis memiliki hobi mengutak-atik perangkat jaringan dan system infrastruktur.. dan tulas-tulis pada sebuah blog ini yang tujuannya supaya bisa menambah teman dan bertukar informasi.
0 Response to "Menghubungkan Workgroup Komputer ke Domain"
Posting Komentar