1. #1
    Da_Hobit's Avatar
    Registered
    28/12/08
    Location
    Erpe-Mere
    Posts
    842
    iTrader
    79 (100%)
    Mentioned
    0 Post(s)

    [script CDM / VBS] + ip adres / drive map vraag

    ik hoop dat iemand me verder op weg kan zetten ...

    ik heb een cmd file die op het einde van m'n unattended xp cd op het bureaublad geplaatst wordt

    het enige wat die file nu doet is een kijken of hij een connectie kan maken naar een bepaalde server en indien ja maakt hij een drivemap

    stukje uit cmd script :

    ping 192.168.x.x | find /i "bytes=" > nul
    if %ErrorLevel%==0 goto ok
    if %ErrorLevel%==1 goto fout

    onder ok wordt er dan een drive map aangemaakt met de nodige credentials
    onder 'fout' krijg ik een pop-up met een error melding

    so far so good ...

    nu beschikken we hier over 8 verschillende vestigingen , weliswaar verbonden met elkaar ( met als gevolg dat de pc ALTIJD naar dat adres kan pingen en de drivemap ALTIJD kan aangemaakt worden ) alleen is dat niet zo interessant aangezien altijd alle benodigde te installeren software over ons adsl netwerk te pompen ... + lokaal hebben we in elke site ook servers staan waar ik de software kan zetten , zodat deze 'lokaal' per site kan geïnstalleerd worden...

    dus ben ik op zoek naar hulp omtrent de bepaling van het ipadres van de desbetreffende te herinstalleren pc

    wanneer de pc :
    ip adres 192.168.50.x krijgt ( DHCP ) dan ping -> 192.168.50.200 -> indien ok -> blablabla , indien fout -> blablabla
    ip adres 192.168.60.x krijgt ( DHCP ) dan ping -> 192.168.60.200 -> indien ok -> blablabla , indien fout -> blablabla
    ip adres 192.168.70.x krijgt ( DHCP ) dan ping -> 192.168.70.200 -> indien ok -> blablabla , indien fout -> blablabla

    enz..

    alvast bedankt !
    Het grootste aanbod van detail materiaal in België vind je bij www.carproducts.be
    no votes  

  2. #2
    Da_Hobit's Avatar
    Registered
    28/12/08
    Location
    Erpe-Mere
    Posts
    842
    iTrader
    79 (100%)
    Mentioned
    0 Post(s)
    ok , kheb ondertussen al gevonden hoe ik het ip adres alleen kan opslaan in een bepaalde file ,dit vbs script roep ik dan even op van uit de 'software install batch file' ... moet wel het ip-adres nog aanpassen naar de gateway want die ligt op elke site vast en dat maakt het dan weer makkelijker om deze nadien in een script vast te gaan gebruiken ( ipv het 3e segment van het DHCP ip-adres te gaan ontleden )



    Dim objFSO, objFolder, objFile, objWMI, objItem ' Objects
    Dim strComputer, strFileName, strFileOpen, strFolder, strPath
    Dim intEvent,colLoggedEvents, IPAddress


    ' --------------------------------------------------------
    ' Set the folder and file name
    strComputer = "."
    strFileName = "\ip.bat"
    strFolder = "c:\logs"
    strPath = strFolder & strFileName


    ' -----------------------------------------------------
    ' Section to create folder and hold file.
    ' Create the File System Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' Check that the strFolder folder exists
    If objFSO.FolderExists(strFolder) Then
    Set objFolder = objFSO.GetFolder(strFolder)
    Else
    Set objFolder = objFSO.CreateFolder(strFolder)
    ' WScript.Echo "Just created " & strFolder
    End If

    If objFSO.FileExists(strFolder & strFileName) Then
    Set objFolder = objFSO.GetFolder(strFolder)
    Else
    Set objFile = objFSO.CreateTextFile(strFolder & strFileName)
    ' Wscript.Echo "Just created " & strFolder & strFileName
    End If

    set objFile = nothing
    set objFolder = nothing

    ' ----------------------------------------------------
    Set strFileOpen = objFSO.CreateTextFile(strPath, True)

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True",,4
    For Each objItem in colItems
    If objItem.IPAddress(0) <> "0.0.0.0" THEN
    strFileOpen.WriteLine "IPAddress: " & Join(objItem.IPAddress, ",")
    EXIT FOR
    end if
    next
    Het grootste aanbod van detail materiaal in België vind je bij www.carproducts.be
    no votes  

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Log in

Log in