Jump to content


  • Posts

  • Joined

  • Last visited

  • Donations

  • Country

    United States

About Athenaeum

Athenaeum's Achievements



  1. I have a question regarding dns. Typically i have to make two entries to make both www.example.com and http://example.com to work. Is this correct or am I doing something incorrectly? Thanks, Greg
  2. Is there anyway to modify actual fields in AD? We would like to keep Hardware inventory in Active Directory.. I have used Admodify in the past but it only allows you to change data in AD.. Thanks, Greg
  3. HI, I have a question, I have a new Cisco Access point we just purchased. I have noticed I can setup multiple SSID's on different Vlan's. I would like to have one public that just has internet access and one that has access to the rest of the network just like the wired network. How would I get our DHCP server to give out different IP's based on which VLAN a machine is connected to? Greg
  4. Hi All, I need some help, I need a VB script or some way of running a local script to place a computer in a workgroup, reboot and then run a script I have to join it to a domain. The problem is I have no access to the old domain, so I can't use NETDOM as it wants credentials for the old domain which I don't have. Thanks, Greg
  5. I finally got it working after making some adjustments. I am not familiar with HTA, what is it and how do I do it? The only requires is it must work on Windows 2000 and XP machines. Thanks, Greg
  6. Hi Everyone, First and foremost I am a noob to programming but I need some help. I am working on a login script and I have it running with no syntax errors finally. I have created a active directory security group called test and put my user into this group, I also put him in a test OU. The problem is the script will map the home directory but will not complete the printer mapping or the drive mapping. Here is the code, thanks for the help. On Error Resume Next strComputer = "." Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor") For Each objItem in colItems intHorizontal = objItem.ScreenWidth intVertical = objItem.ScreenHeight Next Set objExplorer = CreateObject _ ("InternetExplorer.Application") objExplorer.Navigate "about:blank" objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Left = (intHorizontal - 400) / 2 objExplorer.Top = (intVertical - 200) / 2 objExplorer.Width = 400 objExplorer.Height = 200 objExplorer.Visible = 1 objExplorer.Document.Body.Style.Cursor = "wait" objExplorer.Document.Title = "Testing" objExplorer.Document.Body.InnerHTML = "The <b>Test, Inc</b> logon script is being processed. " _ & "This might take several minutes to complete." Const ENGINEERING_GROUP = "cn=engineering" Const FINANCE_GROUP = "cn=finance" Const HUMAN_RESOURCES_GROUP = "cn=human resources" Const TEST_ = "cn=test" Set wshNetwork = CreateObject("WScript.Network") wshNetwork.MapNetworkDrive "h:","\\datastore\Users\" & wshNetwork.UserName Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) If InStr(strGroups, ENGINEERING_GROUP) Then wshNetwork.MapNetworkDrive "g:","\\FileServer\Engineering\" wshNetwork.AddWindowsPrinterConnection "\\PrintServer\EngLaser" wshNetwork.AddWindowsPrinterConnection "\\PrintServer\Plotter" ElseIf InStr(strGroups, FINANCE_GROUP) Then wshNetwork.MapNetworkDrive "g:","\\FileServer\Finance\" wshNetwork.AddWindowsPrinterConnection "\\PrintServer\FinLaser" ElseIf InStr(strGroups, TEST_) Then wshNetwork.MapNetworkDrive "g:","\\datastore\decostar all\" wshNetwork.AddWindowsPrinterConnection "\\decos106\main01" ElseIf InStr(strGroups, HUMAN_RESOURCES_GROUP) Then wshNetwork.MapNetworkDrive "g:","\\FileServer\Human Resources\" wshNetwork.AddWindowsPrinterConnection "\\PrintServer\HrLaser" wshNetWork.SetDefaultPrinter "\\PrintServer\HrLaser" End If Wscript.Sleep 10000 objExplorer.Document.Body.InnerHTML = "Your logon script is now complete. Should you need assistance, please contact the Helpdesk at 770-555-5555" objExplorer.Document.Body.Style.Cursor = "default" Wscript.Sleep 10000 objExplorer.Quit Greg

  • Create New...