Søg
Avatar billede totalpc Seniormester
03. september 2009 - 09:28 Der er 7 kommentarer og
1 løsning

Simpelt script

Hej
Jeg er helt ny til vb script og ville igang med at forsøge mig.
Men nu har jeg akut brug for et simpelt lille script.

Jeg skal kunne starte scriptet med en parameter der angives som et tal. fx:
script.vbs 20

Scriptet skal så køre en kommando 20 gange hvor der for hvert gennemløb skiftes et tal fra 1 og til 20 i det her tilfælde.
Altså:

læs parameter
kør kommando indtil antal=parameter
hpdsm set device=1 policy=SQST
antal + 1

noget i den stil..
Kan noget hjælpe?
Avatar billede tjp Mester
03. september 2009 - 10:01 #1
Til inspiration:

If WScript.Arguments.Count > 0 Then
  For i = 0 To WScript.Arguments(i)
    WScript.Echo (i)
  Next
End If
Avatar billede totalpc Seniormester
03. september 2009 - 10:08 #2
Hej
Tak og det kan jeg godt følge.
Jeg bliver desværre nok nød til at have hjælp til at lave det eksakt denne gang. Jeg aner ikke engang hvordan jeg fyrer en kommando af eller noget...

If WScript.Arguments.Count > 0 Then
  For i = 0 To WScript.Arguments(i)
    hpdsm set device=(i) policy=SQST
  Next
End If
Avatar billede tjp Mester
03. september 2009 - 10:09 #3
En rettelse:

If WScript.Arguments.Count > 0 Then
  For i = 0 To WScript.Arguments(0) ' 0 ikke i her!! ;-)
    WScript.Echo (i)
  Next
End If
Avatar billede tjp Mester
03. september 2009 - 10:16 #4
Jeg ved ikke lige hvad du vil i linjen:
hpdsm set device=(i) policy=SQST
Avatar billede totalpc Seniormester
03. september 2009 - 10:23 #5
jeg vil fyre en dos kommando af der hedder
hpdsm set device=x policy=SQST
hvor x er det nummer i rækken vi er nået til.
Sådan at hvis jeg skriver script 3 så udfører scriptet dette:

hpdsm set device=1 policy=SQST
hpdsm set device=2 policy=SQST
hpdsm set device=3 policy=SQST
Avatar billede tjp Mester
03. september 2009 - 10:47 #6
Hmm, kan nedenstående gøre det?:

If WScript.Arguments.Count > 0 Then
  For i = 0 To WScript.Arguments(0)
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run "hpdsm set device=" & i & " policy=SQST", 0, true
  Next
End If
Avatar billede totalpc Seniormester
13. november 2009 - 09:58 #7
smid et svar... jeg fik lavet noget script i powershell der kunne lave tricket
Avatar billede tjp Mester
13. november 2009 - 10:07 #8
Here U R... :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
20/0714:16 Smartwatch med faldalarm og sos Af hkv i Fitness & Smartwatches
20/0711:23 System til bordreservation Af Strawberry i PHP
18/0720:34 Tidsbestemt Gendannelse - ny funktion i Windows Af Uvanga i Windows
18/0718:04 Ingen menubjælke i chrome Af valby i Browsere
White papers
Flere white papers »