none
Login script問題 RRS feed

  • 問題

  • 請教各位先進,

    Client只要登入網域之後,就會自動幾個連線網路磁碟機,但是已經找過幾個地方完全都沒有設定這一些網路印表機,也沒有批次檔、VBS檔、群組原則也沒有設定,那還有哪裡可以找到進而把他修改掉呢?我想寫一個VB(如下)登入檔來當登入指令檔,可是丟進去DC後去設定使用者設定檔卻不會執行,請問各位先進問題出在哪呢?還有登入指令檔可以設定刪除網路印表機及網路磁碟機嗎?

    感謝回答~

    Const 測試帳號     = "cn=測試帳號"

    Set wshNetwork = CreateObject("WScript.Network")
    wshNetwork.MapNetworkDrive "T:", "\\abc\abc-public\" & wshNetwork.UserName

    Set ADSysInfo = CreateObject("ADSystemInfo")
    Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
    strGroups = LCase(Join(CurrentUser.MemberOf))

    If InStr(strGroups, 公用帳號) Then
        wshNetwork.MapNetworkDrive "n:", "\\abc\abc-public\"
        wshNetwork.AddWindowsPrinterConnection "\\abc\printera"
        wshNetwork.AddWindowsPrinterConnection "\\abc\printera"
        wshNetWork.SetDefaultPrinter "\\abc\printera"

    End If

    2007年6月9日 上午 03:43